Dynamic Ranges in Excel

Hi,

I have the following code:

Dim zz As Range
Dim X, y, z, w, a As Long



    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
   
    Selection.Name = "zz"
   
    y = 2
    X = 2
    z = 4
       a = 8
    b = 1
    c = 3
    d = 11
    For Each Column In Selection
   
   
    Selection.Sort Key1:=Cells(X, y), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range(Cells(X, 1), Cells(4, y)).Select
      Selection.Copy
    Cells(d, b).Select
    ActiveSheet.Paste
   
         y = y + 1
    d = d + 5
      Next

I only want to select 2 columns each time, column A and another column. In the above, in the first run, it will select cols A and B. The second run/loop selects A and B and C. I only want to select A nd C, or 2 column combinations at a time i.e. A+B,A+C,A+D,A+E…

How can I avoid the cycle selecting more than 2 columns each time. Ideally, I would like to only edit the line in bold..