vba COUNTIF Problem

Looks like the last WSFunct is missing.

Sub Test()

  With Worksheets("sheet3")
        
        Worksheets("sheet2").Activate
        .Range("A1:L1").Value = Range("A1:C1").Value
        lastrow = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            Application.StatusBar = "Application Process 1 of 3 Row: " & i
            If WorksheetFunction.CountIf(Worksheets("sheet1").Range("A1:A" & lastrow), Cells(i, 1)) > 0 And _
            WorksheetFunction.CountIf(Worksheets("sheet1").Range("A1:A" & lastrow), Cells(i, 1)) = 0 And _
            WorksheetFunction.CountIf(Worksheets("sheet1").Range("C1:C" & lastrow), Cells(i, 2)) = 0 Then
               Cells(i, 1).Resize(1, 3).Copy Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
            End If
        Next i
End With
End Sub