Para dam validación de datos y diferentes imputbox para cada letra determinada como incidencia

Este código funciona excelentemente con todas las LETRAS proporcionadas

De incidencia

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("D17:AL100")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then Exit Sub
        Set h = Sheets("Reporte")
        UNO = InputBox("¿Trajo receta?", "INCAPACIDADES") 'AQUI 1 INPUTBOX
        If UNO <> Empty Then
            DOS = InputBox("¿Tipo de receta: IMSS o PARTICULAR?,Anota el folio:", "INCAPACIDADES") 'AQUI 2 INPUTBOX
            If DOS <> Empty Then
                TRES = InputBox("¿Dias que le dieron?", "INCAPACIDADES") 'AQUI 3 INPUTBOX
                If TRES <> Empty Then
                    CUATRO = InputBox("¿Cuando se reincorpora?", "INCAPACIDADES") 'AQUI 4 INPUTBOX
                    If CUATRO <> Empty Then
                        u = h.Range("C" & Rows.Count).End(xlUp).Row + 1
                        h.Cells(u, 2) = Sheets("AGOSTO").Range("B" & Target.Row) 'COLABORADOR
                        h.Cells(u, 3) = Sheets("AGOSTO").Range("C" & Target.Row) ' CARGO
                        h.Cells(u, 4) = Target 'CLAVE DE INCIDENCIA
                        h.Cells(u, 5) = Sheets("AGOSTO").Cells(16, Target.Column) & _
                            " " & Sheets("AGOSTO").Cells(14, Target.Column) ' DIA DE INCIDENCIA
                        h.Cells(u, 6) = Date 'FECHA DE CAPTURA
                        h.Cells(u, 7) = UNO
                        h.Cells(u, 8) = DOS
                        h.Cells(u, 9) = TRES
                        h.Cells(u, 10) = CUATRO
                        OB = InputBox("Observaciones o comentarios adicionales.", "OPCIONAL") 'OBSERVACIONES
                        h.Cells(u, 31) = OB
                        MsgBox "Datos registrados", vbInformation, "INCIDENCIAS"
                        Exit Sub
                    End If
                End If
            End If
        End If
        MsgBox "*" & Target & "*" & " Incidencia eliminada. Dia: " & Sheets("AGOSTO").Cells(16, Target.Column), , Range("B" & Target.Row)
        Target = ""
    End If
End Sub

el detalle esta en que por cada letra debio ser 4 inputbox como los tengo en mi libro que te envie, y pues en este por cualquier letra te salen los 4 mismos inputbox de la letra I, espero tu ayuda y una disculpa si no me exxplique