Все, что я хочу сделать здесь, это скопировать формулы вниз в строке 2 (столбцы DB-FN) (строка 1 - это заголовок) (лист называется «областью сортировки»)
Затем я хочу, чтобы макрос определял значение в каждой строке столбца db, и если значение ячейки в столбце db = "IGNORE", вырезать всю строку и вставить строку на другой лист (называемый "игнорировать")


'Копировать формулы вниз
Дим Ластроу как долго

Рабочие листы("область сортировки").Активировать

Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Диапазон("DB2:FN" & Lastrow).FillDown

'Удалить игнорируемые строки

Dim n как целое число
Уменьшить nLastRow как можно дольше
Уменьшить nFirstRow до тех пор, пока
Dim r As Диапазон


Установите r = ActiveSheet.UsedRange
nLastRow = Последняя строка - 1
nFirstRow = 2


Тусклый я как долго: я = 1

С ActiveSheet
Для n = nLastRow To nFirstRow Шаг -1
Если .Cells(n, "DB") = "IGNORE" Then '<----- это строка, выдающая ошибку
.Cells(n, "DB").EntireRow.Cut Worksheets("игнорировать").Cells(I, "A")
.Cells(n, "БД").EntireRow.Delete
я = я + 1
End If
Следующая
Конец с
Application.ScreenUpdating = True

End Sub