No problem:

Sub M_snb()
    On Error Resume Next
    sp = Split("Cell Value|Expression|Color Scale|DataBar|Top 10?|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
    
    With CreateObject("scripting.dictionary")
        .Item("titel") = Split("Type|Typename|Range|StopIfTrue|Formula1|Formula2", "|")
        For Each cl In Sheet1.Cells.SpecialCells(xlCellTypeAllFormatConditions)
            For Each cf In cl.FormatConditions
                x4 = ""
                x4 = cf.Formula1
                x5 = ""
                x5 = cf.Formula2
                .Item(cf.AppliesTo.Address & x4) = Array(cf.Type, sp(cf.Type), cf.AppliesTo.Address, cf.StopIfTrue, "'" & x4, "'" & x5)
            Next
        Next
        sn = Application.Index(.items, 0, 0)
    End With
    
    With ThisWorkbook.Sheets.Add
        .Cells(1).Resize(UBound(sn), UBound(sn, 2)) = sn
    End With
End Sub