Selezionare celle secondo un intervallo di tempo

Sub comprimi()
Dim riga As Long, intervallo As Long
    intervallo = InputBox("Ogni riga distanziata da Quanti secondi?")
    For riga = 1 To Range("A:A").End(xlDown).Row
        Rows(riga).Hidden = riga Mod intervallo <> 1
    Next riga
End Sub

Sub espandi()
Dim riga As Long, intervallo As Long
    For riga = 1 To Range("A:A").End(xlDown).Row
        Rows(riga).Hidden = False
    Next riga
End Sub

Sub comprimi2() 'by Raffaele
Dim y As Long
salta = InputBox("Ogni riga distanziata da Quanti secondi?")
For y = 1 To Range("A" & Rows.Count).End(xlUp).Row Step salta
    Rows(y + 1 & ":" & y + salta - 1).RowHeight = 0
Next
End Sub

Sub comprimi3() 'by Zer0Kelvin
Dim riga As Long, tm As Double
    salta = InputBox("Ogni riga distanziata da Quanti secondi?")
    For riga = 1 To Range("A:A").End(xlDown).Row
        If riga Mod salta <> 1 Then Rows(riga).Hidden = True
    Next riga
End Sub

Sub espandi()
    Range("A:A").EntireRow.Hidden = False
End Sub

Sub comprimi()
  Dim riga As Long, intervallo As Long
  Dim aRng() As Variant
  Dim aRVis() As Variant
  Dim nStart As Single
  Dim nVis As Long
  
    intervallo = 10 'Application.InputBox("Ogni riga distanziata da Quanti secondi?", Type:=1)
    nStart = Timer
    Range("F:G").ClearContents
    If intervallo = False Then
      MsgBox "operazione annullata", vbCritical
    Else
      Application.ScreenUpdating = False
      aRng = Range("A1").CurrentRegion '.Resize(, 1)
      
      For riga = 1 To UBound(aRng) Step intervallo
           nVis = nVis + 1
      Next
      ReDim aRVis(1 To nVis, 1 To 2)
      nVis = 0
      For riga = 1 To UBound(aRng) Step intervallo
                      nVis = nVis + 1
            aRVis(nVis, 1) = aRng(riga, 1)
            aRVis(nVis, 2) = aRng(riga, 2)
      Next riga
      Range("F1:G" & UBound(aRVis)).Value = aRVis
      Range("F1:F" & UBound(aRVis)).NumberFormat = "h:mm:ss"
      Worksheets("Foglio2").Range("A1:B" & UBound(aRVis)).Value = aRVis
      Worksheets("Foglio2").Range("A1:A" & UBound(aRVis)).NumberFormat = "h:mm:ss"
      
      Application.ScreenUpdating = True
      
      MsgBox Timer - nStart, vbExclamation
    End If
  End Sub