Range.Column (Excel)

Devuelve el número de la primera columna de la primera área en el rango especificado.

Column A devuelve 1, column B devuelve 2, y así sucesivamente. Para devolver el número de la última columna del rango, use la expresión siguiente: myRange.Columns(myRange.Columns.Count).Column

Dim lngColumn As Long
lngColumn = ActiveCell.Column