Private Sub Workbook_NewSheet & PasteSpecial

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheet1.Range("A1:E1").Copy Sh.Range("A1")
Sheet1.Range("A1:E20").Copy
Sh.Range("A1:E20").PasteSpecial Paste:=xlPasteFormats
End Sub