How to move highlighted conditional formatted cells?

xitcode 

Have cells been highlighted if they contain @ or did you use a more complicated rule?

Anyway, you could create a macro that searches for the cells satisfying the conditional formatting rule (instead of looking at the cells' color) and moves them to the desired column. For example:

Sub MoveMailAddresses()
    'Change these constants as needed
    Const ToCheck = "A:F"  ' Columns in which to look for mail address
    Const MailColumn = "M" ' Column to move mail address to (should not overlap with ToCheck)
    Dim Cell As Range
    With Range(ToCheck)
        Set Cell = .Find(What:="@", LookAt:=xlPart)
        If Not Cell Is Nothing Then
            Do
                Cell.Cut Destination:=Range(MailColumn & Cell.Row)
                Set Cell = .FindNext
            Loop Until Cell Is Nothing
        End If
    End With
End Sub