How to copy past only the cell marked in red

:confused:

Hi I am trying to copy /paste only the cells with red color font into new sheet how do I do this? I don't want the cell in black. image attached. appreciate ant help!!
Thanks,
Pasi

here is my code forgot to put in:
For i = 1 To Range("A65536").End(xlUp).Row
' ' If Application.WorksheetFunction.CountIf(Range("D"), Range("A" & i)) = 1 Then
'
' ' ColorIndex = 3 Then
With Range("A" & i).Font
' With Range("A:A").ColorIndex
' .Bold = True
'.ColorIndex = 3
Range("A" & i).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
End With
'End If
End If
Next I

Attached Images