Копирование строк из диапазона на основе переменной

Question

Мне нужно скопировать только новые строки в диапазоне от листа1 на основе переменной и вставить после последней строки в листе2

При выполнении приведенного ниже кода все строки на листе1 копируются в лист2. Интересно, есть ли способ скопировать только недавно добавленные строки на лист 1. Например, у меня есть 8 строк, соответствующих критериям, я запускаю код, и все 8 копируются на лист 2. Затем я добавляю на лист 1 две новые строки, соответствующие критериям. Когда я запускаю код, на лист2 копируются только две новые строки. Кроме того, мне нужно, чтобы новые строки были вставлены после последней строки в sheet2.

    Sub CopyInfo()

Application.ScreenUpdating = False

With ActiveSheet
    .AutoFilterMode = False
    With Sheet1.Range("A3:C1000", Range("D" & Rows.Count).End(xlUp))
        .AutoFilter 4, "Applicable"
        On Error Resume Next
        .Offset(1).Resize(,3).Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
    End With
    .AutoFilterMode = False
End With

Application.ScreenUpdating = True
Sheet2.Select

End Sub