Try this macro...

Sub NumberSeriesFiller()
Dim R As Long
Dim Num As Long
R = 1
Num = Range("A1").Value
Do While Len(Cells(R, "B").Value)
Cells(R, "A").Resize(160).Value = Num
Num = Num + 1
R = R + 160
Loop
End Sub

--
Rick (MVP - Excel)


"KrimerJ" wrote in message
...

Thanks Rick for replying;
160 is fixed number of row repeats and the ABC's, DEF's, GHI's...etc.
are constant for the 160 repeats, cell G values allways present, no
blank cells,
and Column A will have a value of 29 throughout the 160 repeats for the
ABC's then 30 for the next 160 repeats for the DEF's then..etc.
--- Automerged consecutive post before response ---
Missed one point to answer your question(s), column G values are
contiguous so 160 ABC's then 160 DEF's then 160 GHI's..etc.


--
KrimerJ
------------------------------------------------------------------------
KrimerJ's Profile: http://www.thecodecage.com/forumz/member.php?userid=227
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=84541