improve loop

hello guys-I am trying to make this loop run a certain way. I have posted it. any help is appreciated.

Sub searchandfind()

Dim data As Worksheet 
Dim report As Worksheet 
Dim name As String
Dim finalrow As Long 
Dim i As Variant 

Set data = Sheet3
Set report = Sheet4
name = report.Range("D2").Value

data.Select
finalrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To finalrow 'I WOULD LIKE TO LOOP THIS FOR EX: COMPLETE ONE ROW THEN CONTINUE TO THE NEXT ROW AND STOP WHEN THERE ARE NO MORE ROWS
    If Cells(i, 1) = name Then 
        Range(Cells(i, 2), Cells(i, 12)).Copy 'IN CASE, HOW COULD I SPECIFY SPECIFIC COLUMNS, FOR EX: (i,2), (i,5), (i,7) 
        reportsheet.Select 
        Range("Z100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats 
        data.Select 
        End If
Next i

report.Select 

Range("B2").Select

End Sub