top 10

Dagligt genereres ca 100 rækker i et ark. Dette foregår i ark1, hvor data indtastes. Disse indsættes så i ark2 kaldet DATA vha følgende makro.

TRow = (Sheets("DATA").Range("A65536").End(xlUp).Row) + 1
  Sheets("DATA").Range("A" & TRow) = Range("B5")
  Sheets("DATA").Range("B" & TRow) = Range("C5")
  Sheets("DATA").Range("C" & TRow) = Range("D5")
  Sheets("DATA").Range("D" & TRow) = Range("E5")
  Sheets("DATA").Range("E" & TRow) = Range("I5")
  Range("B5,C5,D5,E5:H5,I5:O5").Select
    Range("I5").Activate
    Selection.ClearContents
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",TODAY())"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=IF(R[12]C[-2]>0,R[11]C[-2],"""")"
    Range("E5:H5").Select
    ActiveCell.FormulaR1C1 = "=IF(R[12]C[-3]>0,R[13]C[-3],"""")"
    Range("B5").Select

I DATA er værdierne opstillet således: Kolonne A, er et specifikt medarbejdernr, Kolonne b er datoen og kolonne C er medarbejderens navn.

Jeg ønsker at man på ark1 H19:L28, i en lille tabel, kan se en topscore af registreringer atså en top10.
En form for automatiseret tæl.hvis således at den der har flest registreringer står øverst osv.
Det skal fremkomme således at der i kolonne H står antal af registreringer, i kolonne I står vedkommendes medarbejdernr. Og i kolonne J fremkommer medarbejderens navn.

Håber i kan hjælpe mig med dette...

På forhånd tak