Помогите!
Какую то ошибку выдаёт после копирования первого счёта. чего то я по ходу намудрила)))
End With
Range("D12").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[3]C:R[50000]C)"
Range("D12").Select
Selection.Copy
Range("E12").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("13:13").Select
Selection.AutoFilter
Sheets("Лист1").Select
Sheets("Лист1").Name = "Свод"
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10, Criteria1:= _
"92.ГК.1" (ЧТО ТО МНЕ ПОДСКАЗЫВАЕТ, ЧТО ДИАПОЗОН ЭТОТ ОТ 13 ДО 34 СТРОКИ БУДЕТ ПОСТОЯННЫМ, А НАДО ЧТО БЫ МЕНЯЛСЯ В ЗАВИСИМОСТИ ОТ КОЛ-ВА СТРОК)
Application.CutCopyMode = False
Cells.Select
Range("A3").Activate
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист2").Select (КАК БЫ ЗАМЕНИТЬ ЭТОТ ПРЕСЛОВУТЫЙ ЛИСТ С НОМЕРОМ НА ПРОСТО "СЛЕДУЮЩИЙ ЛИСТ", А ЕСЛИ СЧЁТ НЕ НАЙДЕН - ПРОПУСТИТЬ)
Sheets("Лист2").Name = "92.ГК.1"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10, Criteria1:= _
"91.1.1.ГК.4"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист3").Select
Sheets("Лист3").Name = "91.1.1.ГК.4"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=10
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _
"91.1.1.ГК.1"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист4").Select
Sheets("Лист4").Name = "91.1.1.ГК.1"
Sheets("Свод").Select
ActiveSheet.Range("$A$113:$AH$34").AutoFilter Field:=9, Criteria1:= _
"91.2.1.ГК.3"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист5").Select
Sheets("Лист5").Name = "91.2.1.ГК.3"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _
"91.2.1.ГК.4"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист6").Select
Sheets("Лист6").Name = "91.2.1.ГК.4"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="22.ГК.1"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист7").Select
Sheets("Лист7").Name = "22.ГК.1"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:= _
"22.ГК.5.1"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист8").Select
Sheets("Лист8").Name = "22.ГК.5.1"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="26.ГК.4"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист9").Select
Sheets("Лист9").Name = "26.ГК.4"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="26.ГК.6"
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист10").Select
Sheets("Лист10").Name = "26.ГК.6"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9, Criteria1:="="
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Лист11").Select
Sheets("Лист11").Name = "26.2.2"
Sheets("Свод").Select
ActiveSheet.Range("$A$13:$AH$34").AutoFilter Field:=9
Range("H6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("D12:E12").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Dim f_name As String
f_name = Sheets(Свод).Range("D3").Value
ThisWorkbook.SaveAs Filename:=f_name, FileFormat:=xlExcel8
End With
End Sub