Sub insertformula() cell01 = ActiveCell.Address(0, 0) cell02 = ActiveCell.Offset(1, 0).Address(0, 0) Range("c1").Formula = "=" & cell01 & "+" & cell02 End Sub