Range.EntireColumn (Excel)

Returns a Range object that represents the entire column (or columns) that contains the specified range.

Dim rngEntireColumn As Range
Set rngEntireColumn = ActiveCell.EntireColumn