Move to the new cell, you need to use the Activate or Select method
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