Excel VisualBasic Script

Sub addName()
     Names.add name:="ItemsInA", RefersTo:="=COUNTA($A:$A)"
End Sub