Sub Macro1() Range("B4").Select ActiveCell.FormulaR1C1 = "1" Range("B5").Select End Sub