Sammenlægning af tal i variabel rækker som makro

Hej eksperter.
Har lavet et regneark som importere en tekst fil med variabel antal rækker, her i har jeg brug for en makro som i celle A1 summere kolonne fra A3 til kolonne"slut"
=SUM(A3:A65000), men vil gerne kunne lave den rigtig..
Har udregnet antal rækker, men kan ikke definere formlen rigtig.

Her et eks:

Dim LinjeCnt As Integer
Dim AntalAfl As Integer
Dim PosNr As Integer

    Application.ScreenUpdating = False
    LinjeCnt = Cells(1, 32).Value + 2
 
    Range("A3:L3").Select
    Selection.Copy
    Range("a4:L" & LinjeCnt).Select  'denne virker'''
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
   
    Range("a1").Value = Sum("a3:a" & LinjeCnt) 'denne virker ikke ??''

mvh lundjepsen