UNION Method
Private Sub CommandButton1_Click()
Dim first As Range, last As Range, Total As Range
Set first = Range("B4:I9")
Set last = Range("B15:I21")
Set Total = Union(first, last)
Total.Interior.ColorIndex = 3
Total.Font.Size = 18
Total.Font.Bold = True
End Sub