Sub Exemplo()
ActiveCell.Offset(, 1).Select 'Move para a direita
ActiveCell.Offset(, -1).Select 'Move para a esquerda
ActiveCell.Offset(1).Select 'Move para baixo
ActiveCell.Offset(-1).Select 'Move para cima
ActiveCell.Offset(2, -2).Select 'Move duas células para baixo e duas para esquerda
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br