Copy Cells When Conditional Formatting True

It brought up my own thread, I didn't realise it untill today, but the answer I been using uses conditional formating to highlight the lowest cells in each row. And as Sicarii pointed out earlier today you can't select a cell my color with conditional formating turned on. can I highlight some other way or can I select cells to copy some diffrent way. This is the VBA I use to select the lowest price.

Sub FIND_LOW_PRICE()
Range("a1:H6").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, _
Formula1:="=and(a1=min($a1:$H1),not(isblank(a1)))"
Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub

And this is the code that Sicarii supplied and correctly warned me will not work with conditional formating.

Sub COPY_BASED_ON_COLOR()
Dim RngCol As Range
Dim lLoop As Long
With Sheets("Sheet1")
Set RngCol = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
End With
For lLoop = RngCol.Rows.Count To 1 Step -1
If Range("B" & lLoop).Interior.ColorIndex = 6 Then
Sheets("Sheet2").Range("B" & lLoop) = Sheets("Sheet1").Range("B" & lLoop)........................