but I must be able to select the cell to move it
Like I said you rarely need to select:
<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()<br> <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <br> <SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> 250 <SPAN style="color:#00007F">Step</SPAN> 2<br> Cells(i, "A").Cut Cells(i, "A").Offset(-1, 1)<br> <SPAN style="color:#00007F">Next</SPAN> i<br> <br> Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
That should do what you want. It moves each price point next to it's Item # in column B, then deletes the now blank rows.
A note for the future is to always test code on a copy of your wb, so you don't lose data.
