Скопировать строку с одного листа и вставить на другой лист в следующую доступную строку на основе значения ячейки

Question

Я хотел бы проверить, что я сделал неправильно в коде, в основном, так как в заголовке я хотел бы автоматически скопировать из WS (ASN) и вставить на другой рабочий лист (Архив) в следующий доступный raw плюс удаление одного (которыйЯ скопировал) из первого ws (Архив)

Если в столбце "K" = "YES" скопировать raw из столбца AK вставить в следующий доступный raw в листе (Архив) и удалить raw в ws (ASN)

Пожалуйста, посмотрите код и сообщите

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.EnableEvents = False

    Dim MatchRow As Long, FirstRow As Long, LastRow As Long
     Dim Destination As Range

    Dim ws As Worksheet
    Set ws = Sheets("ASN")

    FirstRow = 2
    LastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row

     Dim i As Long
    i = FirstRow
    Do While i <= LastRow
        If ws.Range("K" & i).Value = "YES" Then
            MatchRow = ws.Range("K" & i).Row

             With Sheets("Archive")
                Set Destination = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
             End With

 ws.Range("A" & MatchRow & ":K" & MatchRow).Copy Destination

 ws.Rows(MatchRow).EntireRow.Delete

LastRow = LastRow - 1
        Else
            i = i + 1
            Application.EnableEvents = True
        End If
    Loop
End Sub