Private Sub TEST()
Dim X As Integer
For X = 2 To Range("A65536").End(xlUp).Row
If Cells(X, 3) = "OK" Then
Rows(X).Copy Sheet2.Range("A65536").End(3)(2)
Rows(X).Delete
X = X - 1
End If
Next
End Sub
Private Sub TEST()
Dim X As Integer
For X = 2 To Range("A65536").End(xlUp).Row
If Cells(X, 3) = "OK" Then
Rows(X).Copy Sheet2.Range("A65536").End(3)(2)
Rows(X).Delete
X = X - 1
End If
Next
End Sub