Hide rows in excel based on cell value using VBA

Sub HideRow()

LineStart = 2

LineEnd = 16

ColumnNumber = 2

For i = LineStart To LineEnd

If Cells(i, ColumnNumber).Value <> "YourCellValue" Then

Cells(i, ColumnNumber).EntireRow.Hidden = True

Else

Cells(i, ColumnNumber).EntireRow.Hidden = False

End If

Next i

End Sub