Что за код?

[qwerty550]

Что делает этот код может кто нить объяснить хоть приблезительно. Макрос рабочий на 110%, с 5 % погрешностью. Мне надо правильно расставить данные,судя по коду их надо в Лист1 или Лист2. Гдедолжны быть входные,а где выходные я не понел и вот в этом вопросе нужен ваш совет нужен ваш профессиональный совет. Заранее благодарен.

Sub Макрос1()

i = 3
Range("H3").Select
STAR = 1
NOV = 1
    
While i <= 65000
    While (STAR = NOV)
    
       NOV = Cells(i, "H").Value
       If Len(NOV) = 0 Then
          NOV = STAR
       End If
       
       Cells(i, "H").Value = STAR
       i = i + 1
       
    Wend
    
    STAR = NOV
Wend
    Range("H6").Select
End Sub

Sub Макрос2()

    Sheets("Лист1").Select
    Login = Sheets("Лист1").Cells(1, "A").Value
    
    DAT = Sheets("Лист1").Cells(1, "H").Value + 1
    NARAB = Sheets("Лист1").Cells(1, "L").Value
    j = 1
    
  While (Len(Login) <> 0)
    nextlog = Sheets("Лист2").Cells(1, "A").Value
    Naiden = False
    i = 1
    While ((Len(nextlog) <> 0) And Not (Naiden)) 'цикл поиска логина
         If Login = nextlog Then
            Naiden = True
            Nstr = i
         End If
          i = i + 1
          nextlog = Sheets("Лист2").Cells(i, "A").Value
    Wend
    If Naiden Then
       Sheets("Лист2").Cells(Nstr, DAT).Value = NARAB
    Else
       Sheets("Лист2").Select
       Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Sheets("Лист2").Cells(1, "A").Value = Login
       Sheets("Лист2").Cells(1, DAT).Value = NARAB
    End If
    j = j + 1
    Login = Sheets("Лист1").Cells(j, "A").Value
    DAT = Sheets("Лист1").Cells(j, "H").Value + 1
    NARAB = Sheets("Лист1").Cells(j, "L").Value
 Wend
End Sub

Sub Макрос4()

    Sheets("Лист2").Select
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
End Sub

формат данных такой(выкладываю с разделителями запитая. Как запостить в виде таблицы не нашел)
User Name,SessionCount,Seconds Total,Seconds Per Day,Seconds Per Ses,BW In,BW Out
test11,1,2892,2892,2892,370460,3466 413
test11,1,3016,3016,3016,819402,9851 685
test11,1,3158,3158,3158,522585,4515 796
test11,1,3274,3274,3274,764515,1074 9458
test11,1,3538,3538,3538,1444948,143 19119
test11,1,6788,6788,6788,408879,3530 582
test11,1,9054,9054,9054,1348720,109 59192
test11,1,9649,9649,9649,1407333,166 70563
test11,11,3376,3376,306,654713,7617 797
test11,12,23411,11705,1950,3002993, 30393163
test11,2,10619,5309,5309,1934071,19 899231
test11,2,11193,11193,5596,1853819,1 8767993
test11,2,13236,13236,6618,3797666,3 8589977
test11,2,1349,1349,674,296901,21734 38
test11,2,14912,14912,7456,1901470,1 8536710