Sub 새양식()

    Sheets.Add After:=ActiveSheet
    Sheets("대림").Select
    Cells.Select
    Selection.Copy
    Sheets("Sheet1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B7:E7").Select
    Selection.ClearContents
    Range("C9").Select
    Selection.ClearContents
    Range("C16:J21").Select
    Selection.ClearContents
    Range("B7:E7").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "새견적서"
    
End Sub