Range.EntireColumn (Excel)

Devuelve un objeto Range que representa toda la columna (o columnas) que contiene el rango especificado.

Dim rngEntireColumn As Range
Set rngEntireColumn = ActiveCell.EntireColumn