Problem with VBA to Copy and Paste Rows

[Match12]

I use this very simple code to copy and paste rows - that include merged cells, conditional formatting and some dropdowns.

Sub Copy_rows()
 
  Range("A11:P11”).Copy
  Range("A12:P5000").Select
  ActiveSheet.Paste

End Sub

The idea is to copy everthing in Row 1 from A11:P11 into row 12 to 5000
Sometimes is works perfectly..other times it only copies down so far and then seem to fail to merge the cells. There is no consistency as to where it fails...other than roughly rows 1200 to 1350!

 

[Legacy 143009]

Try to paste one by one It will take forever but better than manual :D

Sub Copy_rows()
  Application.ScreenUpdating = False
  For i = 12 to 5000
    Cells(i - 1, 1).Resize(1,16).Copy
    Cells(i, 1).Resize(1,16).Copy.PasteSpecial Operation:=xlPasteAll
  Next
  Application.ScreenUpdating = True
End Sub

 

[Legacy 143009]

Sorry there wont be copy

Cells(i, 1).Resize(1,16).PasteSpecial Operation:=xlPasteAll

 

[Legacy 143009]

Or you may increase the steps like this:

Sub Copy_rows()
  Application.ScreenUpdating = False
  For i = 12 to 5000 Step 454
    Cells(i - 1, 1).Resize(454,16).Copy
    Cells(i, 1).Resize(454,16).PasteSpecial Operation:=xlPasteAll
  Next
  Application.ScreenUpdating = True
End Sub

 

[Peter_SSs]

@Match12
I have removed the 'Mark as solution' tick from post #10 as your comments in that post do not provide a solution to the original question. This is to help future readers.
Note that the option is not a 'Mark as solved' or 'I don't require further help' checkmark in our forum.