Я новичок в VBA и сталкиваюсь с некоторыми проблемами с кодом ниже:
Просто нужно найти все ячейки с надписью "Добавить" в столбце DE и вставить имена, которые находятся налевый столбец DD до последней пустой ячейки столбца A. Макрос работает нормально до строки вставки. Я не знаю, есть ли другой способ обойти это.
ActiveSheet.Range("$DD$16:$DE$200").AutoFilter Field:=109, Criteria1:="Add"
Range("DD16").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'unfilter Macro
ActiveSheet.Range("$A$13:$DE$133").AutoFilter Field:=109
'Paste names marked as "Add"
Range("A14").Select
ActiveCell.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste