Your description isn't very clear.  The code below "may" work, but if not use
it as a model or be a little clearer what you are looking for.

Sub findford()
Set Lookuprange = Sheets("Sheet1").Range("a2:a1040")

Sh2RowCount = 1
For Each cell In Lookuprange
  If cell = "ford" Then
     With Sheets("Sheet1")
        .Range(.Cells(cell.Row, "A"), _
               .Cells(cell.Row, "AC")).Copy _
        Destination:= _
           Sheets("Sheet2").Cells(Sh2RowCount, "A")
        Sh2RowCount = Sh2RowCount + 1
     End With
  End If
Next cell

End Sub