Hi

I want to use the below code to copy an entire row to a
new sheet when a = true. Can anyone help !
Sub YTD_Modifer()

r = 2

a = "1st Quarter Quarter"

Do Until Sheets("Data").Cells(r, 2) = ""

r = r + 1

If Sheets("Data").Cells(r, 2) a Then

copy entire row to a new sheet

End If
Loop
End Sub

Many thanks
Marcus