Вставить новую строку при копировании ячейки

Question

У меня есть код, в который я копирую данные из одной ячейки на одном листе в новую ячейку на другом листе. Когда я копирую данные, я автоматически вставляю новую ячейку, но я хочу вставить совершенно новую строку. Я пытался решить проблему, но не могу найти ответ. Кто-нибудь может мне помочь.

Sub ImportDataToNewProject()


   Application.Calculation = xlManual

   Set Connector = Workbooks("Test.xlsm").Worksheets("Connector")
   search = Workbooks("Test.xlsm").Worksheets("Sheet1").Cells(2, 2)
   a = Connector.Cells(Connector.Rows.Count, 2).End(xlUp).Offset(-2).Row

For i = 3 To a

   TheSearch = InStr(LCase(Connector.Cells(i, "y").Value), LCase(search))
   HP = InStr(LCase(Connector.Cells(i, "y").Value), LCase("HP"))
   Nett = InStr(LCase(Connector.Cells(i, "y").Value), LCase("Nett"))

      If TheSearch > 0 And HP > 0 And Nett > 0 Then
         Connector.Range("x" & i).Copy


     b = Workbooks("Test.xlsm").Worksheets("Sheet1").Cells(Workbooks("Test.xlsm").Worksheets("Sheet1").Rows.Count, "A").End(xlUp).Row


       Workbooks("Test.xlsm").Worksheets("Sheet1").Cells(b + 1, 1).Select

       ActiveCell.Insert xlFormatFromRightOrBelow, xlShiftDown
       ActiveCell.ClearFormats


   End If
Next i

Sum = ActiveSheet.Range("A5:A30").Find(What:="Sum").Rows.Cut
ActiveCell.Offset(1, 0).Insert xlShiftDown

Application.Calculation = xlAutomatic

End Sub