Hi Scott

Try this one

Sub test()
Dim cell As Range
On Error Resume Next
For Each cell In Columns("B").SpecialCells(xlCellTypeConstants, xlNumbers)
cell.Offset(0, -1).Value = cell.Value
Next
On Error GoTo 0
End Sub


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


"Scott Wagner" wrote in message ...
I have a group of data that in column B contains a mixture of part numbers
for some items, and qty for others. What I'd like to be able to do is copy
IF the value in the column B cell is a number to the corresponding column A
cell. If the value in the column B cell is not a number, do nothing.
(example below)

I have another macro to delete lines with a blank in that A column.

Any ideas?

Thanks in advance,

Scott


Here is what I have now:
Item# Qty Description
1 1 Circuit Breaker Enclosure 134
TK4V1200R
ACCESSORIES SELECTED:
1 TGL6 Ground Kit
1 TNIA1200G
1 TSKG412

Here is what I would like to end up with:
Item# Qty Description
1 1 Circuit Breaker Enclosure 134
TK4V1200R
ACCESSORIES SELECTED:
1 1 TGL6 Ground Kit
1 1 TNIA1200G
1 1 TSKG412