Macro to compile a list with multiple columns

Hello,
I have a list which contains three columns (see attached workbook).
I need a macro to generate a compiled list counting each item and list next to it the corresponding "Length" and "Width".
It has to be a macro, not formula or pivot table, because this is just a part of a more extensive routine.
Could anybody advise please?
Thank you