Sub main()
Dim lRow As Long
Dim lCol As Long
Dim i As Long
Dim j As Long
Dim wb As Workbook
Dim ws As Worksheet
Dim SelectedRng As Range
Dim HideRow As Boolean
Dim CellColor As Long

Set wb = Application.ThisWorkbook
Set ws = wb.Sheets("Sheet")

lRow = ws.Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
lCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column

CellColor = ws.Range("I7").Interior.Color

For i = lRow To 2 Step -1
    HideRow = True
    For j = 1 To lCol
        If ws.Cells(i, j).Interior.Color = CellColor Then
            If SelectedRng Is Nothing Then
                Set SelectedRng = ws.Cells(i, j)
            Else
                Set SelectedRng = Application.Union(SelectedRng, ws.Cells(i, j))
                SelectedRng.Select
            End If
            HideRow = False
        End If
    Next
    If HideRow = True Then
        Cells(i, j).EntireRow.Hidden = True
    End If
Next
End Sub

CellColor = ws.Range("I7").Interior.Color

CellColor = ws.Range("A1").Interior.Color

For i = lRow To 2 Step -1

For i = lRow To 4 Step -1