Excel VisualBasic Script

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