One other quick question...

I am sorting out data  imported from a mainframe and have done most
of it successfully (of a fashion!). However, I want to move cells
that contain numbers and have done the following:

[C1].Select
For varCounter = 1 To varRowCount
If Selection.Value = "2" Then
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
End If
Selection.Offset(1, 0).Select
Next

It works perfectly, but I need it to move ALL numbers, not just 2:)
How do I tell Excel, IF(ISNUMERIC... (like the worksheet formula),
so that if the cell contains a number  it will be shifted to the
right as above?