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