Attribute VB_Name = "testcell3"
Sub ƒeƒXƒg()

    Dim range1 As Range

    Set range1 = Range("A4")
    range1.Formula = "=Sum(A1:A3)"
    
    Cells(4, 2).Formula = "=Sum(B1:B3)"
    
End Sub