in need of macro to copy a row of data to another sheet based on text color of one cell

Hello all. i have searched around for such code to help me but have either run into things that don't work or things that i don't quite understand. I have many rows of data. in a specific column...say, "K", i have text in the form of either "YES" or "NO" and the text is colored either red or green. Based on the text color of that one cell, i need a macro that, when my button is pushed, will copy each entire row of data based on that yes or no cell to a different sheet in my workbook. this is what i am working with tho i know it is most likely way off.

Sub movefails()

Dim c As Range

    'If Selection.Columns.Count > 1 Then Exit Sub

    For Each c In Sheets("problems").Range("K5", "K").End(xlDown)
        If c.Font.Color = vbRed Then
            c.EntireRow.Copy
            Sheets("prodfail").Select
            Cells.Offset(1, 0).Select
            
            ActiveSheet.Paste
           
        End If
    Next c
End Sub

thanks!