Funções na planilha com macro no Excel VBA #01

Sub total()

Range("g3").Value = WorksheetFunction.CountA(Plan1.Columns("a")) - 1

End Sub