Mover celda activa

hola, Raul !

... macro selecciono un rango de celdas, a continuacion ...
... quiero que se active la celda directamente "abajo" de la seleccion actual [...]

'dependiendo' del significado de =>celda directamente "abajo" de la seleccion actual<= ...

si se trata de la 'ultima' fila del rango seleccionado, correspondiente a la columna de la celda activa 'actual'...
With Selection
Range(Cells(.Rows.Count + .Row - 1, ActiveCell.Column).Address).Activate
End With

si se trata de la celda en la fila 'debajo' del rango seleccionado, correspondiente a la columna de la celda activa 'actual'...
=> 'equivale' a DES-seleccionar el rango 'actual' y CAMBIARLO por 'dicha' celda <= OJO
With Selection
Range(Cells(.Rows.Count + .Row, ActiveCell.Column).Address).Activate
End With

'a menos que...' agregues [la direccion de] 'dicha' celda a la seleccion 'actual' y 'actives' la SEGUNDA area del rango...
Dim RangoAmpliado As String
With Selection
RangoAmpliado = .Address & "," & _
Cells(.Rows.Count + .Row, ActiveCell.Column).Address
End With
Range(RangoAmpliado).Select
Selection.Areas(2).Activate

saludos,
hector.