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