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

I need to search for a value in column "J" in "sheet1" then copy the data that is in that row from Column a to k into sheet2. Currently I have the following that copies the whole 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.EntireRow.Copy
            Sheets("Startup").Select
            ActiveSheet.Range("A3200").End(xlUp).Select
            Selection.Offset(1, 0).Select
            ActiveSheet.Paste
        End If
         
    Next
     
End Sub

I need to only copy and paste Column "a" through "k" and to move to the next row down after it fills the value. Help?