escoger contigua

tengo que lograr que excel ponga el horario en una celda contigua a la selda seleccionada con el comando CellContents = ActiveCell.Value es decir no le puedo especificar el rango exacto solo le puedo solicitar que la imprima en la celda contigua ...