JMMach wrote:
If you want to Insert the column the you have to
1. Select the Source Column
2. COPY the Source Column
3. Select the Column where you want the Insert of the Source Column to
happen, INSERT COPIED CELLS
4. Select the Source Column
5 Delete the Source Column
Although there is the Insert Cut Cells, it will work only if you first
Insert a blank Column at the Destination, then the Cut and Insert Cut Cells
command will work.
TTFN
JMMach

"davegb" wrote in message
oups.com...
I should have mentioned that the columns I'm pasting to aren't blank.
That's why I want to insert the moved columns and move the existing
ones over to the right.

Thanks for your suggestions! Somehow, my last post, saying that I'd
solved the problem, didn't show here for hours! I posted it about 30
minutes after my previous post. So you had know way of knowing I'd
solved the problem.
It was a little simpler than what you proposed. The final version is:

Sub ColumnMove()
Dim rOthrMed As Range
Dim rTtl As Range
Dim rMove As Range
Dim rFirstCol As Range

Application.ScreenUpdating = False

Range("a1").Activate
Set rTtl = Range(Selection, Selection.End(xlToRight))
Set rOthrMed = rTtl.find("othermed", LookIn:=xlValues)

If Not rOthrMed Is Nothing Then
Set rFirstCol = rOthrMed.Offset(0, 1)
If rFirstCol.Value < "" Then
Set rMove = Range(rFirstCol, rFirstCol.End(xlToRight))
rMove.EntireColumn.Cut
rOthrMed.Offset(0, -5).EntireColumn.Insert

End If
End If

Application.ScreenUpdating = True

End Sub

Notice I cut and pasted and didn't have to go back and delete the
columns.
Thanks again!