Did you try using the macro recorder?

--
Regards,
Tom Ogilvy

"Dominique Feteau" wrote in message
...
thanx ron...i was close to that solution, but i set up my range
incorrectly.

niq
"Ron de Bruin" wrote in message
...
Try this then

Sub test()
Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("B1").AutoFill Destination:=.Range("B1:B" & LastRow) _
, Type:=xlFillDefault
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Dominique Feteau" wrote in message
...
Ron

I have "Safety04-3000" in that cell as text. I want it to fill down
the
series (e.g. Safety04-3001, Safety04-3002, etc.). but stop at the
last
row.

Niq
"Ron de Bruin" wrote in message
...
Hi Dominique

If there is a formula in B1 it will work
If there is a value then you get the same value.

the series.
what do you want to do


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Dominique Feteau" wrote in message
...
That didnt work. It just copies whatever is in that cell. doesnt
continue
the series.


"Ron de Bruin" wrote in message
...

Try this

Sub test()
Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("B1:B" & LastRow).FillDown
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Dominique Feteau" wrote in message
...
Nigel

Your macro excerpt worked like a charm. I was also able to
tweek it
to
do a
couple of columns. I do have one question tho. How do i
tweek
it
so
it'll
do an autofill instead of just a copy and paste?

Thanks in advance
Niq

Copy of macro below:

Dim LastRow As Long
LastRow = Worksheets("Sheet1").Cells(Rows.Count,
"A").End(xlUp).Row
Range("B1").Copy
Range("B2:B" & LastRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False