How to do a For Each and break up the range?

How would I specify the range for a "For Each cell in range" command if the ranges is fragmented.


In plain text I want it to do:


For each cell in range G2:G300 and range (user selected column1) : (user selected column1) and range (user selected column2) : (user selected column2), etc.....


Is this possible? If so what is the proper syntax?

Maybe:

Sub ks100yy()
Dim rcell As Long, x As String, y As String
x = InputBox("Please select Column Letter 1")
y = InputBox("Please select Column Letter 2")

With Range("G2:G200, " & x & "2:" & x & "200" & ", " & y & "2:" & y & "200")
    ' DO SOMETHING
End With

End Sub