Создание контрольных листов

Контрольные листы в VBA создаются также как в ООО но со своими объектами. Едиственное что при вставке формул нужно помнить - если формулу вставляете на английском, то можно использовать свойство .Formula, а если на русском: .FormulaLocal:

Sub ControlL()
Worksheets("Лист6").Range("a1") = "Показатель"
Worksheets("Лист6").Range("b2") = "Значение"
Worksheets("Лист6").Range("a2") = "Кол-во позиций не СП ГМ в ВП Готовой продукции"
Worksheets("Лист6").Range("a3") = "Кол-во штучных позиций в ВП Готовой продукции, списанных дробным числом"
' и т.д....
Worksheets("Лист6").Range("b2").Formula ("=COUNTA('Не СП ГМ в ВП Готовой продукции'.C2:C65536)")
Worksheets("Лист6").Range("b3").Formula ("=SUM('Штучные позиции в ВП ГП'.M2:M65536)")
' и т.д....
Worksheets("Лист6").Range("c1") = "Примечание"
If Worksheets("Лист6").Range("b2").Value > 0 Then
Worksheets("Лист6").Range("c2") = "Есть ошибки"
Else: Worksheets("Лист6").Range("c2") = "Нет ошибок"
End If
' и т.д....
End Sub