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