Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Dim 원본시트 As Worksheet
    
    Set 원본시트 = Worksheets("sample")
    
    원본시트.Cells.Copy Sh.Cells(1)
    
        Range("B8:K13").ClearContents
    
    Sh.Name = "견적서_" & Format(Time, "hhnnss")
    
End Sub
