Используйте приведенный ниже код для копирования вставки с одного листа на другой в той же книге. Это работает, но мне нужно скопировать на лист «Отчет должников» только из ячейки A10.
Sub filetering_kam()
Sheets("RAW DATA FILE").Select
ActiveSheet.Range("$A$1:$N$5000").AutoFilter Field:=1, Criteria1:=Sheets("main").Range("f11")
Sheets("RAW DATA FILE").Columns("B:N").Copy
Sheets("DEBTORS REPORT").Select
ActiveSheet.Paste
Sheets("DEBTORS REPORT").Columns("A:M").Select
Sheets("DEBTORS REPORT").Columns("A:M").EntireColumn.AutoFit
Sheets("debtors report").Range("A1").Select
Sheets("RAW DATA FILE").Range("A1:N5000").AutoFilter
Sheets("MAIN").Select
MsgBox ("KAM Report Complete:" & " " & Range("f11"))
End Sub