Macro seleziona righe nascoste.

Sub riporta()
Application.ScreenUpdating = False
Dim Ur As Long, K As Long, ur1 As Long
Dim wk As Worksheet
    Set wk = Worksheets("foglio2")
    Ur = Range("A" & Rows.Count).End(xlUp).Row
        For K = 1 To Ur
            If Cells(K, 1).EntireRow.Hidden = False Then
                ur1 = wk.Range("A" & Rows.Count).End(xlUp).Row + 1
                    Cells(K, 1).EntireRow.Copy
                    wk.Range("A" & ur1).PasteSpecial xlPasteValues
                End If
            Next K
                Application.CutCopyMode = False
Application.ScreenUpdating = True
    Set wk = Nothing
End Sub