Private Sub sEXCEL()
 With Ex.Application
  .ReferenceStyle = xlA1
  .UserName = "MakeTemplates"
  .StandardFont = "Tahoma"
  .StandardFontSize = "8"
  .DefaultFilePath = "C:\Мои Документы"
  .EnableSound = False
  .RollZoom = False
 End With
 
 'Ex.Visible = True
 Ex.Workbooks.Add
 Ex.Range(Ex.Cells(2, 1), Ex.Cells(UBound(dvOutDs, 1) + 2, UBound(dvOutDs, 2))) = dvOutDs
 Ex.Range("A3").Select
 Ex.ActiveWindow.FreezePanes = True
 Ex.Rows("1:1").RowHeight = 28.5
 Ex.Rows("2:2").Select
 With Ex.Selection
  .RowHeight = 31.5
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .WrapText = True
  .Orientation = 0
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = False
 End With
 
 Ex.Application.Calculation = xlManual
 For i = 1 To UBound(dvFieldDs, 2)
  Ex.Columns(i).ColumnWidth = dvFieldDs(dvFieldDs_Width, i)
  Ex.Cells(2, i).Select
  Ex.Selection.Interior.ColorIndex = dvFieldDs(dvFieldDs_Color, i)
  Ex.Selection.Interior.Pattern = xlSolid
  
  If Len(dvFieldDs(dvFieldDs_FCFormula1, i)) > 0 Then
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).Select
   Ex.Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=" & Replace(dvFieldDs(dvFieldDs_FCFormula1, i), ",", ";")
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).FormatConditions(1).Interior.ColorIndex = dvFieldDs(dvFieldDs_FCColorIndex1, i)
  End If
  
  If Len(dvFieldDs(dvFieldDs_FCFormula2, i)) > 0 Then
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).Select

   Ex.Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=" & Replace(dvFieldDs(dvFieldDs_FCFormula2, i), ",", ";")
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).FormatConditions(2).Interior.ColorIndex = dvFieldDs(dvFieldDs_FCColorIndex2, i)
  End If
  
  If Len(dvFieldDs(dvFieldDs_FCFormula3, i)) > 0 Then
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).Select
   Ex.Selection.FormatConditions.Add Type:=xlExpression, Formula3:= _
    "=" & Replace(Replace(dvFieldDs(dvFieldDs_FCFormula3, i), Chr(34), Chr(34) & Chr(34)), ",", ";")
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).FormatConditions(3).Interior.ColorIndex = dvFieldDs(dvFieldDs_FCColorIndex3, i)
  End If
  
  If i <> 45 Or (Left(CStr(tFilialName), 1) <> "z" And Left(CStr(tFilialName), 2) <> "РС" And Left(CStr(tFilialName), 3) <> "рЯк") Then
  
  If Len(dvFieldDs(dvFieldDs_Formula, i)) > 0 Then
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).FormulaR1C1 = "=" & dvFieldDs(dvFieldDs_Formula, i)
  End If
  End If
  
 Next
 
 Ex.Range(Ex.Cells(2, 1), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, Ex.ActiveSheet.UsedRange.Columns.Count)).Select
 With Ex.Selection.Borders(xlEdgeLeft)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 With Ex.Selection.Borders(xlEdgeTop)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 With Ex.Selection.Borders(xlEdgeBottom)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 With Ex.Selection.Borders(xlEdgeRight)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 With Ex.Selection.Borders(xlInsideVertical)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 With Ex.Selection.Borders(xlInsideHorizontal)
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
 End With
 
 
 Ex.Range("K1").Select
 Ex.ActiveCell.FormulaR1C1 = "Процент округления"
 
 Ex.Range("M1").Select
 Ex.ActiveCell.FormulaR1C1 = "20"
  
Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C)"
 Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C)"
  Ex.Range("U1").Select
 Ex.ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R[2]C20:R[" & Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C20,R[2]C:R[" & Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C)"
 Ex.Selection.Font.Bold = True
 Ex.Selection.NumberFormat = "#,##0"
 
 Ex.Range("X1").Select
 Ex.ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R[2]C20:R[" & Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C20,R[2]C:R[" & Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C)"
 Ex.Selection.Font.Bold = True
 Ex.Selection.NumberFormat = "#,##0"
 
 If CursFlag = True Then
  Ex.Selection.Interior.ColorIndex = 3
  Ex.Selection.Interior.Pattern = xlSolid
 End If
 
Ex.ActiveSheet.UsedRange.Rows.Count - 1 & "]C)"
 Ex.Columns("AA:AA").Select
 Ex.Selection.NumberFormat = "#,##0"
 
 
 Ex.Range("AS1").Value = dvNormativeDs(2) + dvNormativeDs(3)
 Ex.Range("AT1").Value = dvNormativeDs(2) + 5
 
 
 Ex.Columns("A:B").Select
 Ex.Selection.Columns.Group
 Ex.Columns("E:H").Select
 Ex.Selection.Columns.Group
  
 Ex.Columns("K:K").Select
 Ex.Selection.Columns.Group
 Ex.Columns("M:Q").Select
 Ex.Selection.Columns.Group
 Ex.Columns("V:W").Select
 Ex.Selection.Columns.Group
 Ex.Columns("Y:Z").Select
 Ex.Selection.Columns.Group
 Ex.Columns("AL:AR").Select
 Ex.Selection.Columns.Group
 Ex.ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
 Ex.Application.Calculation = xlAutomatic
 Ex.Application.Calculation = xlManual
 For i = 1 To UBound(dvFieldDs, 2)
  If dvFieldDs(dvFieldDs_ReplaceFormula, i) = True Then
   Ex.Range(Ex.Cells(3, i), Ex.Cells(Ex.ActiveSheet.UsedRange.Rows.Count, i)).Select
   Ex.Selection.Copy
   Ex.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  End If
 Next
 
 Ex.Columns("AZ5") = dvPostavsicDs(UBound(dvPostavsicDs), 0)' вот сэда пытаюсь добавить свой столбец.готова к критике )))      
 Ex.Application.Calculation = xlAutomatic

End Sub