Excel VisualBasic Script

Sub MyMacro()
         ActiveCell.Value = "Top cell"
         ActiveCell.Offset(1, 0) = "Bottom cell"
     End Sub