Repeat/Loop entire subroutine (which contains loop)

Hello, I have a nested loop problem.

I have a sub that contains a loop. It connects to an ODBC database and returns values corresponding to values in cells in Row 1, Column z, where z = z + 1. E.g. D1, contains Jan 2009, E1 contains Feb 2009, etc.

The connection is based on several driver parameters, one of which is contained in Row x, Column B. Right now, the above sub connects using the parameter specified in cell B2 and loops through cells (1, z) to return as many values as there are in Row 1.

I would like the entire loop above to then connect using the parameter in cell B3 and loop through cells (1, z) to return as many values as there are in Row 1, then do the same for the parameter in cell B4.

Sub TotalReferringSiteVisits()

' MACRO __ USE FOR TOTAL VISITS FROM REFERRING SITES
' Macro connects to ODBC database with profile_ID specified in Cells(x, 2),
' each time retrieving total ReferringSite visits i.e. site equals to NULL for months specified in Cells(1, z),
' then puts them in separate columns on 1 row for each month e.g. Cells(2, z) contains Cells(1, z) result, Cells(2, z + 1) contains Cells(1, z) result, etc.
' (results are returned from SQL as 2 rows by 1 column)
' then does all of the above but for connect ODBC database connection with profile_ID specified in Cells(x+1,2), with results in Row 4


Dim x As Integer
x = 2

Dim y As Integer
y = 2

Dim z As Integer
z = 4


' Set Do loop to stop when an empty cell is reached

Do Until IsEmpty(Cells(1, z))

' Connect to Database, Return query using SQL window

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=xxx Driver xxx;DATABASE=xxxxxxxx;SERVER=odbc.xxxxxxxx.com;" _
), Array("PORT=123;AccountId=xxxxxxxx;UID=xxxxxxxx;" _
), Array("PASSWORD=xxxxxxxx;" _
), Array("ProfileGuid=" & Cells(x, 2) & ";SSL=1;")), Destination:=Cells(y, z))

.CommandText = Array( _
"SELECT Sum(ReferringSite_0.Visits)" & Chr(13) & "" & Chr(10) & _
"FROM ReferringSite ReferringSite_0" & Chr(13) & "" & Chr(10) & _
"WHERE (ReferringSite_0.TimePeriod='" & Cells(1, z) & "') AND (ReferringSite_0.Site Is Null)")

.Name = "Query_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False

End With


' Checking for content in next cell down in column B

x = x + 1
z = z + 1

Loop
End Sub