【作成中】【Excel VBA】複数のセル（範囲）を1つのRangeオブジェクトに集める

Union(Rangeオブジェクト1, Rangeオブジェクト2, Rangeオブジェクト3, ...)

Sub sample()
    Dim aRange As Range
    Set aRange = Union(Range("A1"), Range("A3:B5"))
    MsgBox aRange.Address
End Sub