Find a value, copy the row, move to next row.

 Sub copyrows()
     
    Dim tfCol As Range, Cell As Object
     
    Set tfCol = Range("j2:j3200")
     
    For Each Cell In tfCol
         
        If IsEmpty(Cell) Then
            Exit Sub
        End If
         
        If Cell.Value = "Startup" Then
            Cell.Offset(, -9).Resize(, 11).Copy
            Sheets("Startup").Select
            ActiveSheet.Range("A3200").End(xlUp).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
        End If
         
    Next
     
End Sub