Help with creating a macro that will copy and paste data to multiple sheets.

Originally Posted by AB33

John,
I think the code works, but need a bit of tweaking.
You are copying an entire row and pasting it in to column A, while column A is blank, so the code picks the right row, but it keeps overwriting the new copy in old one. I am only referring to the attached. The headings are in column B-H, while you can only copy an entire row in column A, but the next empty row in column A is always be 1.
Perhaps resizing as oppose to entire row should work.

Range("E" & i).Resize(, 8).Copy Sheets("Closed").Range("B" & Rows.Count).End(3)(2)

Great observation AB33. I was really stumped on this one.