Zobrazuje se chyba neshody typu 13 a nejsem si jistý proč

Vše, co zde chci udělat, je zkopírovat vzorce dolů do řádku 2 (sloupce DB-FN) (řádek 1 je záhlaví) (list se nazývá „oblast řazení“)
Poté chci, aby makro identifikovalo hodnotu v každém řádku sloupce db, a pokud hodnota buňky ve sloupci db = "IGNORE", vyřízněte celý řádek a vložte řádek na jiný list (nazývaný "ignorovat")


„Zkopírujte vzorce
Dim Lastrow As Long

Worksheets("sort area").Aktivovat

Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Rozsah("DB2:FN" & Lastrow).FillDown

'Odstraňte ignorované řádky

Dim n As Integer
Dim nLastRow As Long
Dim nFirstRow As Long
Dim r As Range


Nastavit r = ActiveSheet.UsedRange
nLastRow = Poslední řádek - 1
nPrvní řádek = 2


Dim I As Long: I = 1

S ActiveSheet
Pro n = nLastRow To nFirstRow Krok -1
If .Cells(n, "DB") = "IGNORE" Then '<----- toto je řádek, který způsobí chybu
.Cells(n, "DB").EntireRow.Cut Worksheets("ignore").Cells(I, "A")
.Cells(n, "DB").EntireRow.Delete
I = I + 1
End If
další
Konec s
Application.ScreenUpdating = True

End Sub