Office - ActiveCell.Formula no resulta con variable

Sub sumando()

'

    ActiveCell.Offset(-1, 0).Select

        ultimafila = ActiveCell.Address(False, False) 'guarda una ref del tipo A5

        Selection.End(xlUp).Select

         primerafila = ActiveCell.Address(False, False) 'guarda una ref del tipo A5

        Selection.End(xlDown).Select

        ActiveCell.Offset(1, 0).Select

      ActiveCell.Formula = "=SUM(primerafila : utlimafila)"

End Sub