Application.Union (Excel)

Devuelve la unión de dos o más rangos.

Union (Arg1, Arg2, ..., Arg30)


Worksheets("Sheet1").Activate 
Set bigRange = Application.Union(Range("Range1"), Range("Range2")) 
bigRange.Formula = "=RAND()"

Arguments

Arg1, Arg2, ..., Arg30

Arg1 (Range) - Se deben especificar al menos dos objetos Range.

Arg2 (Range) - Se deben especificar al menos dos objetos Range.