Randy wrote:

Thanks! One thing I forgot to add...I need to copy contents of cells 15:24 of active column to the new column

Sub AddColumnToRightAndCopy()
ActiveCell.Offset(0, 1).EntireColumn.Insert
Range(Cells(15, ActiveCell.Column + 1), _
Cells(24, ActiveCell.Column + 1)).Value = _
Range(Cells(15, ActiveCell.Column), Cells(24, _
ActiveCell.Column)).Value
End Sub

There may be a less cumbersome way to reference the ranges, but this is
what I came up with in such short notice :)

Regards,
--
Beto
Reply: Erase between the dot (inclusive) and the @.
Responder: Borra la frase obvia y el punto previo.