Ошибка определения приложения или объекта в CopyPaste

Question

По какой-то причине я получаю сообщение об ошибке, но я не могу понять, почему. Это происходит на копии/вставке, но я не вижу, как это может вызвать это. Пожалуйста, помогите

Sub CopyMain() 
RowCountBack = 2 
Dim n As Integer 
RowCount = RowCount/2 
RowCountConst = RowCount 
RowCount = RowCount + 1 
For n = 1 To 100 
    'If Cells(RowCount, 10).Value = "AR_Mag (ppm)" Then 
    If InStr(1, Worksheets("RAW").Cells(RowCount, 7).Value, "AR_Mag", vbTextCompare) > 0 Then 
     'Sheets("RAW").Range(Cells(RowCountBack, 1), Cells(RowCount, 10)).Copy 
     WkSht.Range(Cells(RowCountBack, 1), Cells(RowCount, 10)).Copy Destination:= _ 
      Worksheets("AR_MAG").Range("a5") _ 
      .End(xlDown).Offset(2, 0) 
     RowCount = RowCount + RowCountConst 
     RowCountBack = RowCountBack + RowCountConst 
    End If 

Это код после большого редактирования. Оригинал находится здесь с подобной ошибкой

If InStr(1, Worksheets("RAW").Cells(RowCount, 7).Value, "AR_Rot", vbTextCompare) > 0 Then 
     wkb.Sheets("AR_ROT").Range(Cells(RowCountBack, 1), Cells(RowCount, 10)).Value = wkb.Sheets("RAW").Range(Cells(RowCountBack, 1), Cells(RowCount, 10)) 
     RowCount = RowCount + RowCountConst 
     RowCountBack = RowCountBack + RowCountConst 
    End If 

Как вы можете видеть оба сослагательного наклонения служат той же цели

Answer 1

Я не знаю почему, но вот рабочая версия

Range(Cells(RowCountBack, 1), Cells(RowCount, 10)).Copy Destination:=Sheets("AR_MAG").Range("A2")