Brug af variabel i SUM-funktion

Jeg har et ark hvor kolonne A indeholder navne og kolonne B nogle beløb.

Jeg vil gerne have summeret de beløb i kolonne B 2 celler længere nede.

Jeg ved at mit range altid starter i B2.

Jeg har forsøgt at tælle hvor mange gange der står et navn og så få den værdi ind i min formel.

EKSEMPEL:

Sub count()

Range("a1").Select

Dim x As Integer

Do
   
If ActiveCell.Value <> "" Then

x = x + 1
ActiveCell.Offset(1, 0).Select

End If

Loop Until ActiveCell.Value = "" ' gøres indtil cellen er blank

ActiveCell.Offset(1, 1).Select
ActiveCell.Formula = sum(B2 & ":" & 2 & x + 2)

End Sub

Hvis der i Kolonne A er 2 navne er min hensigt at formlen skal se således ud. =SUM(B2:B4)

Men der meldes fejl i formlen.