Вставить данные в определенную ячейку

Question

Дает мне ошибку в строке кода, которая относится к ячейке, куда нужно вставить данные из листа происхождения - ячейка A10, лист "Отчет должников"Может кто-нибудь помочь, пожалуйста?

Sub filetering_kam() 
Application.ScreenUpdating = False
Sheets("debtors report").Visible = True

With ThisWorkbook.Sheets("RAW DATA FILE")
.Range("$A$1:$N$5000").AutoFilter Field:=1, Criteria1:=Sheets("main").Range("f11")
.Range("b:n").Copy
End With

With ThisWorkbook.Sheets("debtors report")
    .Range("a10").Select
    .Range("a10").Paste
    .Range("d8") = Sheets("main").Range("f11")
    .Range("h8") = Sheets("main").Range("c6")
    .Range("a:m").WrapText = False
    .Range("A:M").EntireColumn.AutoFit
    .Range("a10:m5000").Interior.ColorIndex = 15
    .Visible = False
    .Range("A1:N5000").AutoFilter
    End With

Answer 1

Если вы копируете весь столбец, то вы должны вставить его куда-нибудь в строке 1, то есть в ячейку A1, вы не можете вставить его в A10, если копируете весь столбец.

Также нет команды Вставить, выможно использовать PasteSpecial, например

Range("YourDesiredCell").PasteSpecial xlPasteAll 

, например, в вашем случае попробуйте изменить эту строку

.Range("b:n").Copy

на

.Range("b1:n50000").Copy

, затем эту строку

.Range("a10").Paste

до

.Range("a10").PasteSpecial xlPasteAll