Macro seleziona righe nascoste.

Option Explicit

Sub Nascondi()
Application.ScreenUpdating = False
Dim NRc As Long, x As Long, y As Long
Dim Vlr As Byte
Dim Rng As Range
 
    NRc = Range("A" & Rows.Count).End(xlUp).Row
    Set Rng = Range(Cells(1, 3), Cells(NRc, 7))
        Range(Cells(1, 1), Cells(NRc, 1)).EntireRow.Hidden = True
    Vlr = InputBox("Digitare il numero da valutare compresa tra 1 e 90")
        For x = 1 To NRc
            If Not Application.WorksheetFunction.CountIf(Range("A" & x & ":C" & x), Vlr) = 0 Then
                Cells(x, 1).EntireRow.Hidden = False
            Else
                y = y + 1
                Range(Cells(x, 1), Cells(x, 5)).Copy
                Sheets("Foglio2").Cells(y, 1).PasteSpecial Paste:=xlPasteValues
            End If
        Next x
            Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub