用于在特定文本上方添加空白行的VBA代码

Question

需要帮助，在文件“ Costumer”上方的文件上添加空白行。找到了以下内容，但无法使其在工作簿上的特定工作表上正常工作。在此先感谢

Private Sub CommandButton2_Click()

'Sheets("RAW DATA FILE").("1").EntireRow.Delete

Sheets("RAW DATA FILE").Range("1:7").EntireRow.Delete

Sheets("RAW DATA FILE").Range("b:b,d:d,f:f,h:j,m:n,p:p,v:x,z:z,ab:ab,ad:ad,af:al").EntireColumn.Delete

'ADDS BLANK ROW ABOVE "Customer account" CELLS
Dim d As Integer
d = Sheets("RAW DATA FILE").Range("A:A").End(xlDown).Row
Dim c As Range
  For i = d To 1 Step -1
    If Cells(i, 1).Value Like "0" Then
      Rows(Cells(i, 1).Row).Insert shift:=xlDown
    End If
  Next

End Sub