Sub ABC()
Dim v As Long, i As Long
v = Range("M6") '<== replace with actual cell address
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

--
Regards,
Tom Ogilvy

"Crumb" wrote in message
ps.com...
I want to use a cell value and not a input box for the users value, How
do I do this?

Thanks