Ich muss eine Zeile einfügen, nachdem das Tool mit vba

Question

gefunden wurde Ich habe einen Code, der nach einem bestimmten Namen in einer Tabelle sucht. Ich möchte, dass diese Informationen an die Tabelle angehängt werden.

Dank

Sub findData() 
    Dim workflow As String 
    Dim finalrow As Integer 
    Dim i As Integer 

    workflow = Sheets("Sheet1").Range("c5").Value 
    servergri = Sheets("sheet1").Range("c9").Value 
    gridf = Sheets("sheet1").Range("c9").Value 
    finalrow = Sheets("Sheet3").Range("c100").End(xlUp).Row 

    For i = 5 To finalrow 
     If Cells(i, 3) = workflow Then 
      If Cells(i, 4) = servergri Then 
       Range(Cells(i, 3), Cells(i, 8)).Copy 
       Range("j42").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 
      ElseIf Cells(i, 5) = gridf Then 
       Range(Cells(i, 3), Cells(i, 8)).Copy 
       Range("j42").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 

       ActiveCell.Offset(1).EntireRow.Insert 
      End If 
     End If 

    Next i 

End Sub 

Answer 1

ActiveCell.Offset(1).EntireRow.Insert 

setzen dies nur in, sondern zuerst die richtige Zelle aktiv stellen Sie sicher ist.