VBA - Como contar as linhas cadastradas mesmo apresentando linhas em Branco

Retirado de: http://tudosobrevba.blogspot.com.br/2012/02/como-contar-as-linhas-cadastradas-mesmo.html


Como criar uma macro para contar as linhas cadastradas, mesmo apresentando linhas em Branco.

Sub contagem()

Dim total as variant

range("a1").select
total = (cells(rows.count,1).end(xlup).row)-1
Msgbox "O total de registros é de: " & total

end sub

Agora atribua a macro em um botão na sua planilha e verifique quantas linhas foram preenchidas no seu cadastro.