Excel.Range rng1 = sheet.Range["A1:C1"];
Excel.Range rng2 = sheet.Range["A2:C2"];
// Меняем местами
(rng1.Value, rng2.Value) = (rng2.Value, rng1.Value);

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Date1", type date}, {"Sum", Int64.Type}}),
    GroupedRows = Table.Group(ChangedType, {"ID"}, {{"SUM_GROUP", each List.Sum([Sum]), type number}, {"ALL_ROWS", each _, type table}}),
    ExpandedALLROWS = Table.ExpandTableColumn(GroupedRows, "ALL_ROWS", {"ID", "Date1", "Sum"}, {"ALL_ROWS.ID", "ALL_ROWS.Sum", "ALL_ROWS.Date1"})
in
    ExpandedALLROWS

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Declare Function CreateWindow Lib "user32.dll" Alias "CreateWindowExA" ( _
     ByVal dwExStyle As WindowStylesEx, _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String, _
     ByVal dwStyle As Long, _
     ByVal x As Long, _
     ByVal y As Long, _
     ByVal nWidth As Long, _
     ByVal nHeight As Long, _
     ByVal hWndParent As Long, _
     ByVal hMenu As Long, _
     ByVal hInstance As Long, _
     ByVal lpParam As Long) As Long

Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Any) As Long

hlist = CreateWindow( _
    dwExStyle:=WS_EX_CLIENTEDGE, _
    lpClassName:="LISTBOX", _
    lpWindowName:="MYLISTBOX", _
    dwStyle:=WS_CHILD Or WS_VISIBLE Or LBS_NOTIFY Or WS_VSCROLL Or WS_BORDER Or LBS_HASSTRINGS, _
    x:=10, _
    y:=10, _
    nWidth:=100, _
    nHeight:=100, _
    hWndParent:=FindWindow("ThunderDFrame", Me.Caption), _
    hMenu:=0, _
    hInstance:=Application.hInstance, _
    lpParam:=0 _
)
' Добавляем значения
For x = 1 To 10
    Call SendMessage(hlist, LB_ADDSTRING, 0, CStr(x))
Next

For y = 1 To Sheets.count
    Set arrF = Sheets(y).UsedRange.SpecialCells(-4123) 'определяем наличие ссылок (формул)
    kol = kol + arrF.SpecialCells(-4144).count 'определяем наличие комментов
    For Each x In arrF.SpecialCells(-4144)
        If kol = i Then Exit For
        i = i + 1
        pathF = Replace(Replace(Split(arrF.Formula(1, 1), "]")(0), "[", ""), "='", "")
        Adr(i, 1) = Split(x.Comment.Text, ":")(0)
        Adr(i, 2) = Trim(Replace((Split(x.Comment.Text, ":")(1)), Chr(10), ""))
        Adr(i, 3) = Split(pathF, "\")(UBound(Split(pathF, "\")))
        Adr(i, 4) = Split(Split(arrF.Formula(1, 1), "]")(1), "'")(0)
    Next
Next

       mov eax, 10
       mov ecx, 20
loop1: inc eax
       cmp eax, ecx
       jle loop1
       dec eax

Dim x As Integer
Const y As Integer = 20
x = 10
While x <= y
    x = x + 1
Wend

Dim x As Integer

LOOP1:
x = x + 1
If x < 10 Then GoTo LOOP1

Dim x, y, z
While x < 10
    x = x + 1
    While y <= x * 2
        y = y + 10
        While z <= y * 2
        Wend
    Wend
Wend