Excel - Unir Rangos en Excel VBA Macro

A veces podría ser útil hallar el rango de celdas usadas en una columna (Formulas y constantes).

-Celdas con formulas
-Celdas con valores constantes

-Celdas con fórmulas -> Rango (Celdas). SpecialCells(xlCellTypeFormulas)
-Celdas con valores constantes-> Rango (Celdas). SpecialCells(xlCellTypeConstants)

Sub RangoTest
Dim rng as range,rng1 as range
Set rng = Columns(5)

'Selecting data and formulas…
‘identificamos el rango de constants y lo unimos con el rango de fórmulas x)
Set rng1 = Union(rng.SpecialCells(xlCellTypeConstants), _
rng.SpecialCells(xlCellTypeFormulas))
‘Mostramos el mensaje con las celdas que buscábamos
Msgbox rng1.address

End Sub