I'm not sure how you want the cells colored, but this is faster
Option Explicit
Sub test()
Dim G, K, Rg, Rk, s, e, x
Dim i As Long, j As Long, RgI As Long, RkI As Long
'Make and siz arrays
G = Range("g1", Range("g1").End(xlDown)).Value
K = Range("k1", Range("k1").End(xlDown)).Value
ReDim Rg(UBound(G))
ReDim Rk(UBound(K))
'Init Red Row Array indices
RgI = 1
RkI = 1
'Run filtering on arrays
For i = 1 To UBound(G)
For j = 1 To UBound(K)
s = Split(G(i), "-")
e = Split(K(j), "-")
For Each x In e
s = Filter(s, x, False)
Next
If UBound(s) < 2 Then
Rg(RgI) = i
Rk(RkI) = j
End If
Next
Next
'Set Cell Colors
Application.ScreenUpdating = False
RgI = 1
Do While Rg(RgI) <> 0
Range("G" & Rg(RgI)).Interior.Color = vbRed
RgI = RgI + 1
Loop
RkI = 1
Do While Rk(RkI) <> 0
Range("K" & Rk(RkI)).Interior.Color = vbRed
RkI = RkI + 1
Loop
Application.ScreenUpdating = True
End Sub