Copying cells based on limited citeria

Hello

I am trying to write a Macro that copys data from one worksheet and pastes it in the other, where it will be pasted will depend on the number of the item (as different numbers will be within two sheets) and whether or not a number has been pasted before it, if it has been pasted then the next dulipate number should be pasted into the next column across

I Have attached a example file to make my explanasion clearer.

thanks

well I was thinking of doing a count the defenciate between the numbers, so if the number came once, it would add it onto the first cell and so on,

The dates and the numbers will always be different as there is a consildation function, which removes duplicate numbers and dates from the same rows,

I know how to do it but just cant seem to write it as a VB Macro

Thank you