Excel VisualBasic Script

Sub MyMacro()
         ' Change the top cell.
         ActiveCell.Value = "Top cell"
         ' Move down one cell.
         ActiveCell.Offset(1, 0).Select
         ' Now this changes the bottom cell.
         ActiveCell.Value = "Bottom cell"
     End Sub