Для пропуска петли

Question

Я пытаюсь создать цикл for, который просматривает данные в столбце G и в зависимости от их значения вырезает и вставляет их на другой лист.Я смог заставить работать копию и вставку, но когда я запускаю макрос, он обрезает и вставляет строку 3, когда n = 2, что приводит к пропуску строк.Шаги по коду n - это правильное значение, но кажется, что оно сокращает n + 1.J, K и L используются в дополнительных операторах IF, которые я пока что удалил.

Спасибо,

Dim n As Integer: n = 1
Dim i As Long: i = 1
Dim j As Long: i = 1
Dim k As Long: i = 1
Dim l As Long: i = 1
Dim newSheetName As String
Dim checkSheetName As String

ActiveSheet.UsedRange

Set r = ActiveSheet.UsedRange
nLastRow = r.Rows.Count + r.Row - 1
nFirstRow = r.Row

With ActiveSheet.UsedRange
    For n = 1 To 20
        If Cells(n, "D") <> "" Then
            If Cells(n, "G") Like "*1492-J4*" Or Cells(n, "G") Like "*1492-J6*" Or Cells(n, "G") Like "*1492-J10*" Or Cells(n, "G") Like "*1492-JD4*" Or Cells(n, "G") Like "*1492-H*" Then
                .Cells(n, "D").EntireRow.Cut Destination:=Worksheets("UCT-TM6").Range("A" & i)
                '.Cells(n, "D").EntireRow.Delete
                 i = i + 1
            Else

                MsgBox "The part number " & Range("G" & n).Text & " does not exisit in database"
            End If
        End If
    Next
End With