Moving highlighted cells

[jlove5683]

Is there a way to move only the highlighted cells from one sheet to another?

 

[PCL]

How are they highlighted:
Format prepared or Conditional Format turned on?

 

[jlove5683]

They are highlighted using the cell fill color

 

[PCL]

Next macro move all highlighted cells from the selected range to Sheet2

Option Explicit
Sub MoveColorCell()
Dim F As Range
Dim LastRow As Long
    With Sheets("Sheet2")
        LastRow = .Range("A" & Rows.Count).End(xlUp).Row
        For Each F In Selection
            If (F.Interior.ColorIndex <> xlNone) Then
                F.Cut (.Cells(LastRow, 1))
                LastRow = LastRow + 1
            End If
        Next F
    End With
End Sub