using worksheet_calculate to copy an entire row if a 1 is found in a column

[fuslela]

Hello All,
I have a spreadsheet which needs to copy an entire row to a new sheet "Winners" should a "1" appear in column AA. So I a "1" appears in AA10 as an example, the whole of AA10 should be copied to sheet "winners", each time a calculation updates and a 1 is found, the whole row should be copied.

Private Sub Worksheet_Calculate()
   If Application.CountIf(Range("AA2:AA50"), "1") > 0 Then
     a = Sheets("Winners").Cells(Rows.Count, "A").End(xlUp).Row + 1
'it breaks on the line below
target.EntireRow.Copy Destination:=Sheets("Winners").Range("A" & a)
     
 End If
End Sub

It fails with an error 424 object required.

Any ideas anyone?

Thanks!

 

[fuslela]

I have also tried:

Private Sub Worksheet_Calculate()
Dim rw As Long, Cell As Range
For Each Cell In Sheets(1).Range("AA2:AA50")
rw = Cell.Row
If Cell.Value = "1" Then
Cell.EntireRow.Copy
Sheets("Winners").Range("A" & rw).PasteSpecial xlPasteValues
End If
Next
End Sub

I get a runtime error 13 type - mistmatch error on the line

If Cell.Value = "1" Then

 

[fuslela]

code works - apologies everyone!