VBA: variabeln mit einer schleife ändern

Sub rechnung()
Public auswahl As String
Public cbw1 As String
Public cbw2 As String
Public cbw3 As String
Public w1 As String
Public w2 As String
Public w3 As String
Sheets(auswahl).Select
For e = 4 To 8 Step 2
If cbw1 = Range("F" & e) Then
w1 = Range("F" & (e + 1))
Else
w1 = "0"
If cbw1 = Range("G" & e) Then
w1 = Range("G" & (e + 1))
Else
w1 = "0"
If cbw1 = Range("H" & e) Then
w1 = Range("H" & (e + 1))
Else
w1 = "0"
End If
End If
End If
Next e
End Sub

in den variablen cbw1-3 sind werte drin die mit den zellen F4-F8 verglichen werden sollen
cbw1 soll also mit den zelle f4 verglichen werden und wenn die werte gleich sind soll F5 in w1 geschrieben werden ansonsten wird g4 überprüft und g5 in w1 geschrieben und dann mit h4 und h5 in w1
dann das ganze mit cbw2 in w2 und so weiter
wenn dann zb cbw3 = G8 ist soll w3 = G9 sein.
mein eigendliches problem ist, das cbw1 und w1 nach jedem duchlauf eine nummer höher gesetzt werden soll also cbw2 und w2 damit alle werte die schleife durchlaufen.
in wirklichkeit sind es einige werte mehr (w1-w50 und F-Y) sonst wär es ja einfach die 9 if abfragen so zu schreiben
das problem noch mal in kurz:
wie kann ich variablen nach jedem durchlaufen der schleife ändern?
ich hoffe das problem ist einigermaßen verständlich geworden
schon mal vielen dank
gruß irgendwer