Boa tarde!!

Não testado!!

Option Explicit

Sub NaoTestado()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

With Worksheets("Main")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = lrow To 7 Step -1
        If .Range("S" & i).Value = "OK" Then
            .Rows(i).Copy Worksheets("Regularized").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            .Rows(i).Delete
        End If
    Next i
End With

Application.ScreenUpdating = True

End Sub

Att

Boa tarde alexandre!

Então, é quase isso! mas o macro está pegando apenas a ultima linha que está como "ok" na aba "Main", e está levando para a linha 101 da aba "Regularized"...
Talvez seja mais facil entender o que quero dizer abrindo a planilha...
é quase isso! obrigado pela atenção!

Fiz um novo teste aqui e agora deu certo!
Muuuuuito obrigado!!!

Bom dia!!

Eu fico feliz que conseguiu resolver, obrigado pelo retorno!!

att