Funções na planilha com Excel VBA #02

Excel 2010

Sub total()

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

Range("g3").Value = WorksheetFunction.Sum(Plan1.Columns("b"))

Range("h3").Value = WorksheetFunction.Sum(Plan1.Columns("c"))

End Sub