Macro to extract and format data at piece level

Hello everyone,
Hoping someone can help me out with a macro to do the below.
I have a large set of data that I need to copy into another sheet but in a different format to the source data. At present, the piece data is split into rows by model but I would like the models to be split into columns so that each piece is only on one row like a pivot table would do. However, I can't use a pivot table as there is some data to the right that can't be in the values column.

There are a lot more columns that I would need to copy across but the main issue is the split of pieces into rows rather than at model level in columns. Hope that makes sense!

I have attached an example sheet with a before and after.
Thanks in advance.

Hi
No there are about 40 different ones, I just used the letters to simplify the data.

Just a few -
L43A, L52A, S63A, P43P, T42A, T52A

They are a few of the model numbers I would need to split out.
Looking at the code, I could just repeat the following line and add each model in, changing the cell "E2", to F, G and so on?
wsTarget.Range("E2").Value =

Thanks for the codes - it's not pulling through the number of pieces - they are all showing as 0
I copied and pasted the code as is into the example sheet to test.

It's the same file as the original one -
Attached again with the code in

The sheet with the zeros is the output when I ran the macro.

Thanks - I tried the #10 code and that works