Vba loop

Maybe:

Sub rafaruiz123()
Dim i As Long
Dim x As Long
Dim y As String
For i = Range("H" & Rows.Count).End(3).Row To 2 Step -1
y = Range("H" & i).Value
Rows(i).Copy
x = 6
    Do Until x = 0
        Cells(i, "A").EntireRow.Insert
        Cells(i + 1, "O") = x
        Cells(i + 1, "H") = y
        Select Case x
            Case Is = 1
                Cells(i + 1, "N") = "A"
            Case Is = 2
                Cells(i + 1, "N") = "B"
            Case Is = 3
                Cells(i + 1, "N") = "C"
            Case Is = 4
                Cells(i + 1, "N") = "D"
            Case Is = 5
                Cells(i + 1, "N") = "E"
            Case Is = 6
                Cells(i + 1, "N") = "F"
        End Select
        x = x - 1
    Loop
Next i
Range("H2:H" & Range("H" & Rows.Count).End(3).Row).SpecialCells(4).EntireRow.Delete
End Sub