Migrate Or Copy Columns Depending On Their Color Based On Conditional Formatting

[bakerman]

Sub tst()
    For Each cl In Sheets("Sheet1").Columns(1).SpecialCells(2)
        Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 5) = cl.Offset(, 1).Resize(, 5).Value
    Next
End Sub

The above code copies the result to Sheet2