Olá Stephanie tudo certinho com você??

Se existir a possibilidade de trabalhar com as tabelas sem as informações nulas é sempre uma ótima opção =) Acredito que este exercício aqui trate da sua necessidade:

Sub Total_Plano_while()
    Dim totPlano as integer
    Dim linha as integer
    For linha=2 to Range(“a1048576”).end(xlup).row ‘identifica a ultima linha preenchida
        If cells(linha,3) = “Nacional” then 
            totPlano = totPlano + 1 
        Endif 
    Next    
    Msgbox “Quantidade de vendas para o plano Nacional:  “ & totPlano 
End Sub

Ele utiliza For linha=2 to Range(“a1048576”).end(xlup).row ‘identifica a ultima linha preenchida que percorre a coluna toda até achar a última informação e vai subindo de baixo para cima coletando esses dados. O link do exemplo é esse aqui.

Assim você consegue reaproveitar e aplicar na sua planilha =)