Sub abc()
If IsNumeric(Range("A2")) And IsNumeric(Range("B2")) And _
Not IsEmpty(Range("B2")) Then
If CLng(Range("B2")) < 0 Then
For i = 1 To Range("A2") / Range("B2")
Range("C4").Offset(i - 1, 0).Value = i
Next
End If
End If

End Sub

--
Regards,
Tom Ogilvy



"rbhedal" wrote in
message ...

I have a slight problem that Excel either can not do or I can not enter
the formula
correctly. I am asking for your expertise. What I need is to enter
Value A
into a cell and then enter Value B into a cell, have Excel do the
division,
and then generate a table with that number of rows. For example, if I
enter
"20" into cell A2, enter "5" into cell B2, I need Excel to generate a
table
in cell C4 that starts at 1 and then in cell C5 is 2, then 3 .... Any
help would be greatly appreciated.

Thanks
Robert


--
rbhedal
------------------------------------------------------------------------
rbhedal's Profile:
http://www.excelforum.com/member.php...o&userid=28199
View this thread: http://www.excelforum.com/showthread...hreadid=477412