I'm thinking this is something simple, but I can't seem to figure it out. My macro goes to a sheet to copy some data, and then I want to it to go to another sheet and paste that data on the next 14 available rows. I tried selecting a range and then pasting, but it would only paste in a single row. I've tried combining the range selection with the paste and still in a single row. How do I get this to paste in multiple times without creating a loop or iterative statement that does it 14 times?
Code:
With sht
Range(Cells(Count1, "A"), Cells(Count1, "E")).Select
Selection.Copy
Sheetname = Cells(Count1, "D").Value
Sheets(Sheetname).Activate
LastRow = Range("D150000").End(xlUp).Row
Range(Cells(LastRow + 1, "B"), Cells(LastRow + 14, "E")).PasteSpecial xlValues
Application.CutCopyMode = False