Sheets("рихтовка").Select
Sheets("отчетный период ").Visible = True
Sheets("отчетный период ").Select
ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=10, Criteria1:="Р"
ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=11, Criteria1:="=3", _
Operator:=xlOr, Criteria2:="=4"
ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=14, Criteria1:="<>"
Range("A5:I11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("отчетный период ").Select
Range("L5:M11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("J5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("отчетный период ").Select
Range("CQ5:CQ11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("отчетный период ").Select
Range("CT5:CU11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("M5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' КОПИРОВАНИЕ
Sheets("отчетный период ").Select
Range("K5:K11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("AA5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("отчетный период ").Select
Range("CS5:CS11000").SpecialCells(xlCellTypeVisible).Copy
Sheets("рихтовка").Select
Range("AB5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("отчетный период ").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$4:$CJ$11000").AutoFilter Field:=14