Contagem de palavras até chegar a um campo vazio

Oi Thiago tudo bem?

Faça assim:

Sub contagem()


Dim contagem As Integer
contagem = 0
Sheets(1).Select
Range("B1").Select
Do Until ActiveCell = ""

    contagem = contagem + 1

    ActiveCell.Offset(1,0).Select
Loop
Range("a1").Value = contagem
End Sub

Você não precisava daquele if. Porque já estava validando no do until.

Espero ter ajudado!!!

Oi André, tudo bem ? Agradeço a ajuda, acredito não ter sido muito claro na com relação a minha dúvida. Quero saber quantas vezes uma palavra específica aparece em um range. Sendo que essa palavra está dentro de um texto. Obrigado.

Tudo ótimo. Então eu acho que é isso que precisa.

Sub contagem()


Dim contagem As Integer
contagem = 0
Sheets(1).Select
meuRange = Range("B1:C4")
minhaPalavra = "teste"
For Each celula In meuRange

    vetor = Split(celula, " ")
    For Each palavra In vetor

        If palavra = minhaPalavra Then


            contagem = contagem + 1

        End If

    Next




Next
Range("a1").Value = contagem
End Sub

Acabo de testar aqui, deu certo. MUITO obrigado pela ajuda. =D

Disponha e bons estudos!!!