Jestem nowy w VBA ... Chcę skopiować wiersz z Sheet2 do Sheet1, jeśli pierwsza komórka w tym wierszu mówi X, a następnie zrobić to dla wszystkich wierszy, które spełniają te kryteria. Mam błąd w warunku If ... Nie wiem, jak to naprawić.

Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Worksheets("Sheet2").Activate
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox (LastRow)
    For i = 1 To LastRow
    If Worksheet.Cells(i, 1).Value = "X" Then
    ActiveSheet.Row.Value.Copy _
    Destination:=Hoja1
    End If
    Next i
 End Sub