Код не работает, если задана одна строка

Question

У меня есть код ниже, который выполняет Vlookup между двумя столбцами из разных листов. Он находит только значения, которых нет на другом листе, и выделяет отдельные ячейки красным цветом.
Приведенный ниже код прекрасно работает, если имеется более одной строки, но если есть одна строка, это приводит к ошибке в строке диапазона Autofill.

Dim LastRow1 As Long
LastRow1 = Range("B" & Rows.Count).End(xlUp).Row
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C8").Select
ActiveCell.FormulaR1C1 = "Sample"
Range("C9").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet3!C2:C2,1,0)"
Range("C9").Select
Selection.AutoFill Destination:=Range("C9:C" & LastRow1)

Range("B9").Select
Selection.AutoFilter
ActiveSheet.Range("$A$8:$J$27").AutoFilter Field:=3, Criteria1:="#N/A"
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Interior
    .Color = -16776961
End With
ActiveSheet.Range("$A$8:$M$27").AutoFilter Field:=3
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft