VBA найти и добавить цвет непустых клеток

Question

У меня есть код для добавления цвета в пустые ячейки.

Sub find_and_addcolor_to_notemptycells () Dim rng As Range, rcell As Range

Set rng = Range("G2:DB16")
For Each rcell In rng.SpecialCells(xlCellTypeBlanks)
    If Application.CountIf(rcell.Resize(, 18), "<>") = 0 Then
        rcell.Resize(, 18).Interior.ColorIndex = 30
    End If
Next rcell

End Sub

Тем не менее, мне нужно добавить цвет непустых клеток. Я искал, пытаясь написать сценарий сам, но я просто не могу понять, как это сделать. Любая помощь приветствуется.