Excel Curitiba

Olá Pessoal As  vezes precisamos de um contador simples pra ver quantas células estão preenchidas em uma coluna. Se a coluna não tiver nenhuma célula vazia no meio dos dados esse contador funcionará perfeitamente. Vamos a ele: Sub contador() Dim a As Integer 'integer só vai até 32767   a = 1 ' atribuir 1 para a variável para que possa ser iniciado   While Cells(1, a).Value <> "" ' esse código diz: enquando a célula x for diferente de vazia    a = a + 1 ' soma mais um na varíável que armazena o número de linhas(células)    Wend ' final da instrução while    a = a - 1 ' pra descontar o primeiro valor acima End Sub