Dim x As Range
Set x = Range("5:5").Find("", Range("IV5"), xlValues, xlWhole, 1, 1, False)
If Not x Is Nothing Then If x.Column > 2 Then Columns(x.Column).Insert: Columns(x.Column - 3).Copy _
Columns(x.Column - 1): Columns(x.Column - 1).ClearContents