Debug this code.

[Paul_Hossler]

There was too much extranious formatting (borders) that took clogged the ability to insert

I cleaned all that up and changed this

        dataRange.Rows(8).PasteSpecial Paste:=xlPasteFormats    '   <<<<<<<<<<<<

so that borders didnt get copied to the last column each time

I don't know about the start / end times but at least it runs.

With so little data but such a large file size, I always check to see where the formatting is

The ver1 file is a lot smaller, but you'll probably need to check that the formatting / shading / borders are what you want after the CODE line above