Try this:

--
AP

'----------------------------------------------
Sub testUnion()
SelectUnion 2, 4, "B", "D", "G", "I"
End Sub

Sub SelectUnion( _
RowPointer0 As Long, _
RowPointer1 As Long, _
ColumnPointer1 As String, _
ColumnPointer2 As String, _
ColumnPointer3 As String, _
ColumnPointer4 As String _
)
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim r4 As Range

Set r1 = Range( _
Cells(RowPointer0, ColumnPointer1), _
Cells(RowPointer1, ColumnPointer1))
Set r2 = Range( _
Cells(RowPointer0, ColumnPointer2), _
Cells(RowPointer1, ColumnPointer2))
Set r3 = Range( _
Cells(RowPointer0, ColumnPointer3), _
Cells(RowPointer1, ColumnPointer3))
Set r4 = Range( _
Cells(RowPointer0, ColumnPointer4), _
Cells(RowPointer1, ColumnPointer4))
Union(r1, r2, r3, r4).Select
End Sub
'-------------------------------------------