Excel宏添加标题和新列

Question

我有一个任务是编写一个Excel宏来匹配我的客户的特定导入模板。我有大量的数据，只需要一些数据。我设法写了VB来消除列，行等，以符合我需要的标准。

我不知道该怎么做，是在第1行添加一行，以正确的顺序将数据添加到每个单元格。

例如，我想在整行中的连续单元格中添加“OrderID”“CompanyName”“Contact”和“Address1”。这可能吗？

另外我想在表格中添加新列，有没有办法指定我添加它们的位置？

我目前使用的代码：

Sub Macro1()
'
'
' Keyboard Shortcut: Ctrl+a

Dim i As Long
Dim LastRow As Long

LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

For i = LastRow To 1 Step -1
    If Cells(i, 1).Value <> "CUST" Then
        Rows(i).Delete
    End If
Next i

Columns(1).EntireColumn.Delete
Columns(2).EntireColumn.Delete
Columns(3).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(5).EntireColumn.Delete
Columns(4).EntireColumn.Delete
Columns(4).EntireColumn.Delete

End Sub