Здравей,
следвай тази логика:
Sub HideRowsValue()
FirstRow = 1 'номер на първия ред от областта
LastRow = 1000 'номер на последния ред от областта
ColNo = 2 'номер на колоната със стойности които искаш да се филтрират
TargetValue = 100 'граничната ти стойност, в случая 100
For RowNo = FirstRow To LastRow
If Cells(RowNo, ColNo).Value > TargetValue Then
Cells(RowNo, ColNo).EntireRow.Hidden = True
Else
Cells(RowNo, ColNo).EntireRow.Hidden = False
End If
Next RowNo
End Sub