Sum i VBA

Jeg har prøvet at få en sum frem af tal der står over cellen:

Dim Peter
    Range("B8").Select
    ActiveCell.Offset(-1, 0).Select
    Range(Selection, Selection.End(xlUp)).Select
    Peter = Selection.Offset(0, 0).Address
    Selection.End(xlDown).Select

    ActiveCell.Offset(1, 0).Formula = "=sum(Peter)"
   
men i cellen skrives #NAME?
Det lader til, at den mister referencen i Peter. Hvad gør jeg galt?
Poul