Sub Form()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    'удаляем лист "Лист1", если он присутствует
    On Error Resume Next
    Workbooks("Книга1.xlsm").Sheets("Лист1").Delete
    On Error GoTo 0

    'добавляем лист "Лист1"
    Workbooks("Книга1.xlsm").Activate
    ActiveWorkbook.Sheets.Add.Name = "Лист1"
    Workbooks("Книга1.xlsm").Sheets("Лист1").Move After:=Sheets(Sheets.Count)

    'настраиваем лист (вид и разметка)
    Workbooks("Книга1.xlsm").Activate
    ActiveWindow.View = xlPageLayoutView
    With ActiveSheet.PageSetup
    .Zoom = 68.5
    .FitToPagesWide = 1
    .FitToPagesTall = False
    .LeftMargin = Application.InchesToPoints(0.236220472440945)
    .RightMargin = Application.InchesToPoints(0.118110236220472)
    .TopMargin = Application.InchesToPoints(0.94488188976378)
    .BottomMargin = Application.InchesToPoints(0.748031496062992)
    .HeaderMargin = Application.InchesToPoints(0.31496062992126)
    .FooterMargin = Application.InchesToPoints(0.31496062992126)
    .PrintQuality = 600
    .PrintArea = "A1:H54"
    .CenterHorizontally = True
    .CenterVertically = True
    .AlignMarginsHeaderFooter = False
    End With
    
    With ActiveSheet
    .Cells.Font.Size = "10"
    .Cells.Font.Name = "Arial"
    .Cells.HorizontalAlignment = xlCenter
    .Cells.VerticalAlignment = xlCenter
    .Cells.WrapText = True
    .Cells.EntireRow.AutoFit
    .Range("A1").ColumnWidth = 23.07
    .Range("B1").ColumnWidth = 19.79
    .Range("C1").ColumnWidth = 12.71
    .Range("D1:E1").ColumnWidth = 12.43
    .Range("F1").ColumnWidth = 11.71
    .Range("G1").ColumnWidth = 12.86
    .Range("H1").ColumnWidth = 17.43
    End With
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
End Sub