Can you upload a workbook with some sample data?
Give this a try, it works with the uploaded workbook.Code
- Option Explicit
- Sub FillWorkOrderNos()
- Dim rngWOs As Range
- Dim rngWO As Range
- Set rngWOs = Sheets("Parts List").Columns(1).SpecialCells(XlSpecialCellsValue.xlTextValues)
- For Each rngWO In rngWOs.Cells
- If rngWO.Value <> "Work Order" Then
- rngWO.Copy rngWO.CurrentRegion.Columns(1)
- End If
- Next rngWO
- End Sub
Thanks norie that works perfectly.