Assume the highest number is in A1 and descending in order from there

Sub ABC()
Dim v As Long, i As Long
v = InputBox("Enter Number")
i = 1
Do While Not IsEmpty(Cells(i, 1))
cnt = v \ Cells(i, 1)
Cells(i, 2) = cnt
v = v Mod Cells(i, 1)
i = i + 1
Loop
If v < 0 Then
Cells(i - 1, 2) = Cells(i - 1, 2) + 1
End If
End Sub

Lightly tested.

--
Regards,
Tom Ogilvy



"Crumb" wrote in message
oups.com...
Can anyone help me with this configuration question?

I am trying to build a tool that allows user to input any number and
the results are broken down into units of 5,10,20, 50, 100 and 200
starting at the highest were possible and working its way down. the
Number of units should always exceed the input.

Example.

User enters 67

Return should be 50x1, 10x2

The units will be in cells A1, A2 and so on and I am looking for the
return to be entered into B1 B2 .....


Can anyone help with this?

Many Thanks

Ian