Option Explicit

Sub ha()
Dim R_in As Range, i_cell%, c

Rows("2:3").Hidden = True
Rows("9").Hidden = True

Range("A1:A14").Select

Set R_in = Selection.SpecialCells(xlVisible)

For Each c In R_in

    i_cell = i_cell +  1 
    Debug.Print i_cell; Tab; R_in(i_cell).Address; Tab; c.Address
    
Next

End Sub

 1            $A$1          $A$1
 2            $A$2          $A$4
 3            $A$3          $A$5
 4            $A$4          $A$6
 5            $A$5          $A$7
 6            $A$6          $A$8
 7            $A$7          $A$10
 8            $A$8          $A$11
 9            $A$9          $A$12
 10           $A$10         $A$13
 11           $A$11         $A$14

' костыль для For Each
For Each c In R_in
    
    i_cell = i_cell +  1 
    If Intersect(c, R_in( 1 )) Is Nothing Then _
        Debug.Print i_cell; Tab; R_in(i_cell).Address; Tab; c.Address
    
Next

Sub wu()
Dim r1, ac%, cc%
Set r1 = [A1:A10,A16:A20,A25:A30]
    Debug.Print "Address "; Tab; r1.Address
    Debug.Print "cells count "; r1.Cells.Count; Tab; "areas count "; r1.Areas.Count
    Debug.Print "cells.count_address "; Tab; r1.Cells(r1.Cells.Count).Address
    ac = r1.Areas.Count
    cc = r1.Areas(ac).Cells.Count
    Debug.Print "LastCell_address "; Tab; r1.Areas(ac)(cc).Address
Set r1 = Nothing
End Sub

Dim R_in, r1
Rows("11:15").Hidden = True
Rows("21:24").Hidden = True

Range("A1:A30").Select

Set R_in = Selection.SpecialCells(xlVisible)
Set r1 = [A1:A10,A16:A20,A25:A30]

If R_in.Address = r1.Address Then _
  MsgBox "за деревьями леса не замечаем?", vbQuestion, "пробуй камнем"

Set R_in = Nothing
Set r1 = Nothing