A sor végének színezéséhez még kell egy sor a Next után.

If meddig - figyel >= 6 Then Range(Cells(Target.Row, figyel), Cells(Target.Row, meddig)).Interior.ColorIndex = 3

Szerintem az első feltételnél is 6-tal kell vizsgálni: If i - figyel >= 6 Then

(#13426)