Fazer Insert com condição

Olá a todos
Estou com um problema numa aplicação que estou a desenvolver, preciso de gerar uma query que insira numa tabela dados com base num critério definido, para melhor entender o que pretendo anexo a bd e xls explicativo do que necessito.

Agradeço a vossa ajuda!

Faça algo do tipo:

Código:

Dim qtdDisponivel as Single, parcMaxima as Integer, NumParc as Integer, I as Long


qtdDisponivel = InputBox "Qtd Disponível:"
parcMaxima = InputBox "Parcela máxima da quantidade." & qtdDisponivel & ":"
NumParc = qtdDisponivel / parcMaxima

For I = 0 To NumParc
      CurrentDb.Execute "INSERT INTO ..."
Next

Msgbox "Quant. dísponível: " & qtdDisponivel & Chr(13) & _
"Parcela Máxima: " & parcMaxima & Chr(13) & _
"Registros inseridos: " & NumParc

Não tenho conhecimento de vba para tal feito? Consegue replicar isso na bd que envio em anexo?