You can't access the CF color, but you can use the same formula in a
macro:

Public Sub MoveRowsWithYinColumnD()
Dim rDest As Range
Dim rSource As Range
Dim rCell As Range

Set rDest = Sheets("Sheet2").Range("A" & _
Rows.Count).End(xlUp).Offset(1, 0)
With Sheets("Sheet1")
For Each rCell In .Range("D1:D" & _
.Range("D" & Rows.Count).End(xlUp).Row)
If LCase(rCell.Value) = "y" Then
If rSource Is Nothing Then
Set rSource = rCell
Else
Set rSource = Union(rSource, rCell)
End If
End If
Next rCell
End With
If Not rSource Is Nothing Then
With rSource.EntireRow
.Copy rDest
.Delete
End With
End If
End Sub



In article ,
"M Hill" wrote:

To take this one step further,

When rows are marked in a different color,
is there a way to move these rows to an existing worksheet, and just append
them to the worksheet?