get first blank row and paste formula and format from range

[Jacob Hilderbrand]

Try this and let me know if it is what you want to do.

[vba]
Option Explicit

Sub copy_it()

Dim lrow As Long

With Sheets(1)
lrow = .Range("H" & Rows.Count).End(xlUp).Row + 1
.Range("A1:N15").Copy .Range("A" & lrow)
On Error Resume Next
.Range("A" & lrow & ":N" & lrow + 14).SpecialCells(xlCellTypeConstants, 23).Value = ""
On Error GoTo 0
End With

End Sub
[/vba]