セルを個別に指定追加して、グルーピングしていく方法。

【１】Range変数を使用する方法
┌──────────────────────────────────────┐
│Dim セルたち As Range                                                       │
│Set セルたち = Range("A1")                                                  │
│Set セルたち = Union(セルたち, Range("B2"))                                 │
│Set セルたち = Union(セルたち, Range("C3"), Range("D4"))                    │
└──────────────────────────────────────┘
「セルたち = Range("A1")」だと「セルたち.Value = Range("A1").Value」の
省略形と解釈されるので注意。

【２】名前定義セルを使用する方法
┌──────────────────────────────────────┐
│Range("A1").Name = "範囲"                                                   │
│Union(Range("範囲"), Range("B2")).Name = "範囲"                             │
│Union(Range("範囲"), Range("C3"), Range("D4")).Name = "範囲"                │
└──────────────────────────────────────┘
「Range("範囲") = Union(Range("範囲"), Range("B2"))」みたいに
右辺に新たな範囲を指定するのではない点に注意。
ちなみに上記だと、前述の「.Value」の省略形として解釈されてしまう。