Oi, pessoal.
Tenho um código de uma macro, onde uso a função FOR, mas ele executa apenas a primeira linha,

Sub ELIMINA_DADOS()
    Dim DETTEs      As Worksheet: Set DETTEs = Worksheets("DETTEs")
    Dim Vendedor    As Variant: Vendedor = Trim(UCase(DETTEs.Range("K1").Value))
    Dim Nlinhas     As Double: Nlinhas = DETTEs.Range("A1048575").End(xlUp).Row
    Dim j           As Double
    
        DETTEs.Activate
            For j = 2 To Nlinhas
                If Vendedor = Trim(UCase(Range(Cells(j, 1), Cells(j, 1)))) Then
                    Range(Cells(j, 1), Cells(j, 8)).Select
                    Selection.Delete Shift:=xlUp
                Exit For
                End If
            Next j
End Sub

E anexo também ficheiro