Center Active Cell's Contents Across Active Column and One Column Over

I'm trying to take the date in the active cell and center it across two columns starting with the current column and going to the right one column. Here's all I have so far.

ActiveCell.FormulaR1C1 = "=NOW()"

Thanks in advance...
Jim

Re: Center Active Cell's Contents Across Active Column and One Column Over

Thanks Rob. That works perfectly.