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