Åben inputbox der indsætter værdi i en anden celle.

Jeg har indsat en knap i Excel der aktiverer en VBA kode.
Den åbner en inputbox, hvor der kan indtastes en værdi, der så efterfølende bliver indsat i en bestemt celle.

Public Sub IndsætKm()
Dim iResultat As Integer
iResultat = InputBox("Skal de kørte kilometer indsættes i(celle)")
Range("D5").Select
If Range("D5").Value = "" Then
Range("D5").Activate
ActiveCell.Value = iResultat
End If
End Sub

Jeg vil gerne ændre koden, så inputboxen ikke skal aktives med knappen, men bliver åbnet når en bestemt celle har en positiv værdi.
Altså efter en positiv værdi er indtastet og tryk på "Enter".

Sætningen i inputboxen er, " Skal de kørte kilometer indsættes i (celle)?".
VBA skal vide:
Hvis A1 >0, er D5 den første celle der skal indsættes værdi i.
D5 skal automatisk sættes ind i sætningen, så den lyder som følgende:
"Skal de kørte kilometer indsættes i D5?".

Efterfølgende sætninger skal automatisk rettes til, således at inputboxen, hvis A2>0, er følgende:
"Skal de kørte kilometer indsættes i D6?". OSV.

Eksempel:

A1=1
Inputbox åbnes med følgen sætning "Indsæt de kørte kilometer i celle D5"
Kilometer indtastes i inputbox og indsættes i D5.

A2=1
Inputbox åbnes med følgen sætning "Indsæt de kørte kilometer i celle D6"
Kilometer indtastes i inputbox og indsættes i D6.

Det er en kolonne med 31 celler:
A1-A31
hvor værdierne indsættes i:
D5-D36

Jeg kan lave en kode for hver celle, men er det muligt lave en samlet kode for alle cellerne, så jeg ikke skal lave 31 næsten ens koder?

Laugesen