try this
Sub every4throw()
For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row Step 4
Cells(i, "b").Offset(0, 1) = 1
Next i
End Sub

--
Don Guillett
SalesAid Software

"lehigh46" wrote in message
...

HI ALL,

In column A, I have consecutive numbers 1 thru 7,000

In column B, I would like to write a formula and copy it down to show
a number 1 on every fourth line .

How can I accomplish this?


Thanks for your help.

Tom Snyder


x-- 100 Proof News - http://www.100ProofNews.com
x-- 3,500+ Binary NewsGroups, and over 100,000 other groups
x-- Access to over 1.6 Terabytes per Day - $8.95/Month
x-- UNLIMITED DOWNLOAD