Sub MyMacro() Range("A1").Value = "This is A1" Range("A2").Select ActiveCell.Value = "This is A2" End Sub