Paste row A1 above each separated table in Sheet1

I've created a Macro that inserts blank rows upon data change in column D, but now I need to bring the header row (A1) and paste it above each of the separated "tables". This needs to be dynamic though and i'm not sure how to write it.


2018-07-27 12_30_03-Key Customer Report (77) - Excel.png

Nice picture.

Maybe

Please Login or Register  to view this content.

Originally Posted by Fluff13

Maybe

Please Login or Register  to view this content.

Thanks man that works, but I need it to stop after the third paste command. right now it's pasting a header at the very end of the all three tables. Or maybe just delete the very last row in the sheet now?

Try this

Please Login or Register  to view this content.

If that doesn't resolve the problem, then you'll need to upload a sample workbook

Fluffy13 that code puts the headers as the very last row now.
Attached is a sample workbook of our basic layout.
Column D is typically the column that we used to split the data.

This stops the header going in as the last row

Please Login or Register  to view this content.

Also the code by PCI works for me.

Originally Posted by PCI

What about the code sent ?

Your code was pasting the header in seemingly random rows in the sheet. not really sure what it was doing

Originally Posted by Fluff13

This stops the header going in as the last row

Please Login or Register  to view this content.

Also the code by PCI works for me.

it was probably user error to be honest Looks like this code works great. thank you!

Glad we could help & thanks for the feedback

Please Login or Register  to view this content.

Sorry Fluff, I see you had it allready