Selecting a column instead of a cell in a for loop regex search

[IREALLYambatman]

So I am doing a regex search, and if I get a match in the cell that I'm searching for I want to move that WHOLE COLUMN to a different position. My code below works in moving it and inserting it where I want it to go but it only moves the cell and not the whole column.. I've highlighter the line that I'm sure is the problem.. I just don't know how to modify it to get it to work right.

Sub AnionsTesting()
 Dim regEx As New RegExp 'Register Regex?
 
    For Each cell In ActiveSheet.Range("C7:Z7") 'MBD Fix!
            strInput = cell.Value
            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = "MB-"
            End With
            If regEx.Test(strInput) Then
            cell.Columns.Cut  ' <--------------------- Wrong, I want to move the whole column that the cell is associated with, not just the cell.
            Columns("B").Insert Shift:=xlToRight
            End If
    Next
End Sub

 

[Fluff]

Try

cell.EntireColumn.Cut

 

[IREALLYambatman]

Yup. That easy, thank you..

 

[Fluff]

You're welcome & thanks for the feedback