Union Method
Sub Union_MultipleRanges() Union(Range("A1:A5"), Range("C5:C8")).Select Union(Range("A1:A5"), Range("C5:C8")).Interior.ColorIndex = 9 End Sub