Flatten Data Script

Hi All

I have written a small bit of script which loops through data. It assumes that the data is sorted by employee. If there is more than one record for the same employee it will place certain fields onto the next available column for the top row of data for that employee (effectively flattening out history records on to one row)

The code does what I want but is intended to be run on a data set of > 300,000 records. When I have tried this it takes ages (I stopped it after 15 minutes and it had only done 14000 records).

I have tried to re-write this using "for, each, next" instead of activating each cell but I couldn't work out how to include the "If" and "Do While"

I have attached a sheet with the script and some sample records. I would really appreciate it if anyone could give me any pointers to speed this code up.

Thanks in advance

Regards

Jim