Use Copy and Paste or AutoFill functions
Sub autoFill() Dim formulaString As String Dim I As Integer Cells(1, "B").Value = Cells(1, "A").Value formulaString = "=A2+B1" Cells(2, "B").formula = formulaString End Sub