Ошибка выполнения 1004 данных автозаполнения

Question

Мой код должен автозаполнение моей «IF» формула K2 = J2 и так далее в колонке «L», но встретив ошибку во время выполнения 1004.

Я хочу макрос для завершения цельность колонны до него попадает в последнюю строку с данными в колонке K.

Код:

Sub SiteAccess() 

Dim mySheet As Worksheet, myOtherSheet As Worksheet, myBook As Workbook 
Set myBook = Excel.ActiveWorkbook 
Set mySheet = myBook.Sheets("SiteAccessReports") 
Set myOtherSheet = myBook.Sheets("Sheet1") 

Dim ff As Long 

ff = myOtherSheet.Range("L2:L" & myOtherSheet.Cells(myOtherSheet.Rows.Count, "L").End(xlUp).Row).Count 
With Sheets("Sheet1") 
.Range("L2").Formula = "=IF(RC[-2]=RC[-1],""No"",""Yes"")" 
Selection.AutoFill Destination:=Range("L2:L" & ff), Type:=xlFillDefault 'Error Line 
End With 

End Sub 

Answer 1

Я уверен, что есть лучший ответ, но за неимением любого другого до сих пор:

Sub SiteAccess() 
    Dim myBook As Workbook 
    Dim myOtherSheet As Worksheet 
    Dim ff As Long 
    Set myBook = Excel.ActiveWorkbook 
    Set myOtherSheet = myBook.Sheets("Sheet1") 
    ff = myOtherSheet.Range("K1:K" & myOtherSheet.Cells(myOtherSheet.Rows.Count, "K") _ 
    .End(xlUp).Row).Count 
    With Sheets("Sheet1") 
     .Range("L2").Select 
     .Range("L2").Formula = "=IF(RC[-2]=RC[-1],""No"",""Yes"")" 
     Selection.AutoFill Destination:=Range("L2:L" & ff), Type:=xlFillDefault 
    End With 
End Sub