Pasting rows that meet a condition

[Spes_]

Hi all,

I am looking for VBA code to check a number of rows (dynamic) that meet a criteria to be pasted on another sheet.

e.g If cell A1 ="" then paste certain cells of that row to another sheet. I want this statement to be repeated for however many rows i have in the sheet.

Thank you.

 

[Kamolga]

Sub MacTest()
'Last row
Dim lr As Long
lr = sheets("[COLOR=#ff0000]Sheet1[/COLOR]").Range("A" & Rows.Count).End(xlUp).Row
'Running cell
Dim i As Long
    For i = 1 To lr
         'i is row nomber, 1 is column number
        If sheets("[COLOR=#ff0000]sheet1[/COLOR]").Cells(i, 1) = "" Then
[COLOR=#0000ff]            
           'Your copy-paste code (maybe record it and then adapt)

[/COLOR]
        End If
    Next i
End Sub