Sub applyStyles()
    Dim tblRn As Range
    If ActiveSheet.ListObjects.Count > 0 Then
        For Each LO In ActiveSheet.ListObjects
            LO.Unlist
        Next
    End If
    Set tblRn = Range([A1].End(xlToRight), Cells(Rows.Count, 1).End(xlUp))
     
    With tblRn
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
    End With
    ActiveSheet.ListObjects.Add(xlSrcRange, tblRn, , xlYes).Name = "ТаблицаЗаказа"
    With ActiveSheet.ListObjects("ТаблицаЗаказа")
        .TableStyle = "TableStyleLight9"
        .ShowTotals = True
        For i = 9 To 12
            .ListColumns(i).TotalsCalculation = xlTotalsCalculationSum
        Next i
    End With
    
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub