Я новичок в VBA ... Я хочу скопировать строку из Sheet2 в Sheet1, если первая ячейка в этом ряду говорит X, а затем сделать это для всех строк, которые соответствуют этому критерию. У меня ошибка в условии If ... Я не знаю, как это исправить.

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