Makro – Excel

Zdravím, v excelu mám vytvořený report a potřeboval bych poradit jak vytvořit makro, které mi na novém listě v prvním sloupečku zobrazí uživatel ( v přiloze uvedeno modrou barvou) a vedle nich bude zobrazeno číslo (v příloze uvedeno červenou barvou).Ideální by ještě bylo kdyby data byla seřazena sestupně podle udaje v druhém sloupečku. Děkuji 2798

spouštět z List1Sub Makro1() Set dest = Worksheets("List2").Range("a1") For Each r In Range(Range("A1"), Range("A1").End(xlDown)) If r.Value = "User: " Then dest.Value = r.Offset(, 1).Value dest.Offset(0, 1).Value = r.Offset(1, 2).End(xlDown).Value Set dest = dest.Offset(1, 0) End If Next r Sheets("List2").Select Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Sort _ Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormalEnd Sub