Double Listbox movement - Maintain Order

    Dim cell As Range
    For Each cell In Worksheets("Sheet1").Range("C2:O2,Q2:T2,V2:W2,Y2:AA2")
        ListBox1.AddItem cell.Value
    Next cell