JonatanR,

Bom dia!

Acho que pode ser assim, supondo que os dados estão na aba chamada Plan1, coluna A, a partir da linha 2 (após o cabeçalho):

Sub teste()
    Dim i As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    For i = 2 To UltimaLinha
        If Range("A" & i).Value <> "" Then
            'Aqui entra seu código que deve rodar
        End If
    Next i
End Sub