Macro to copy 1 row in excel, to multiple rows in another sheet

[jlax34]

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?

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

 

[jlax34]

Nevermind! I was asking someone for help and they couldn't figure it out, but watching them sparked an idea. I went back and changed the range selection in my paste sheet from multiple rows/columns, but just a single column (Just B instead of B:E) and now it is working!

 

[Fluff]

How about

With Sht
    .Range("A" & Count1).Resize(, 5).Copy
    Sheetname = Cells(Count1, "D").Value
    Sheets(Sheetname).Activate
    LastRow = Range("D150000").End(xlUp).Row
    Range("B" & LastRow + 1).Resize(1 * 14, 5).PasteSpecial xlValues
      Application.CutCopyMode = False
   End With