In diesem Beispiel wird die Vereinigung der benannten Bereiche "Range1" und "Range2" mit der Formel =RAND() gefüllt.
Worksheets("Sheet1").Activate Set bigRange = Application.Union(Range("Range1"), Range("Range2")) bigRange.Formula = "=RAND()"