Как прописать копирование и вставку отфильтрованных данных на другой лист - VBA

Формулировка задачи:

Здравствуйте. Не могу найти как прописать такую вещь: Есть два столбца. в первый вставляется новые данные, во второй вставляются старые данные, потом с помощью макроса анализируются два столбца и в первом остаются только те данные которых нет во втором. Потом по первому столбцу нужно отфильтровать значения которые остались, скопировать их перенести на другую ячейку. Но при этом найти в столбце А первую пустую ячейку. Не могу не как прописать, что бы копировать отфильтрованные данные и в ставить их. Помогите. Макрос который у меня получился:

                    Листинг программы
                
 
                        
                          
                    
'Фильтр
    Sheets("Приборы").Select
    Range("A1:C1").Select
    ActiveSheet.Range("$A$1:$C$40").AutoFilter Field:=1, Criteria1:="<>"
    'копирование новых приборов
    Range("A2:A10400").Select
    Selection.Copy
    Selection.AutoFilter
    Sheets("Сравнение").Select
    ActiveSheet.Range("a2").End(xlDown).Offset(1, 0).Select
    ActiveCell.Offset(0, 0).Activate
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.EnableEvents = False

Решение задачи: «Как прописать копирование и вставку отфильтрованных данных на другой лист - VBA»

textual
                            Листинг программы 
                        
Range("A2:A10400").SpecialCells(xlCellTypeVisible).Copy Sheets("Сравнение").Range("a2").End(xlDown).Offset(1, 0)