Copy Down Number Of Rows Repeatedly Using VBA

I have a situation where I want to copy the first 6 rows of data in a worksheet down 11000 times and right below the previous. I can get it to copy down, but I can't keep the formatting the same, and the formatting is important for when I print. After I get this to copy down the values and format, I'll be inserting pagebreaks every 6th line.

I have the following code right now:
Sub PasteDownFormat()
Dim x As Long, i As Long
x = 11000
If x < 1 Then Exit Sub
With Range("a1:l6")
For i = 1 To x
Cells(i * 6 + 1, 1).Resize(.Rows.Count, .Columns.Count).Value = .Value
Next
End With
End Sub