当列A、B和E发生变化时，将垂直列表转到水平列表

I have a list of data that I need to turn from vertical to horizontal... I would like to do it via VBA as I have about 40K lines. I need to have it combine all data for each number group with the same type, prod and G/NG code. So all that have the same type, Prod, G/NG and Number need to be in one column with all from the Code column in the row....I have a list of data that I need to turn from