Select Only First Value Found?

I want to select only the cells that have colorinterior = 4 (Green)

Dim Cell As Range
For Each Cell In [G:G]
If Cell.Interior.ColorIndex = 4 Then b = Cell.Address
Next Cell

but this code only selects the last cell with green format, my idea is to select the first and the last cell on column G, making b the last cell and a the first cell, to delete afterwards what is between, is there a way on the above code to select only the first cell and not the last one, making the a = first cell and b = last cell?