Function vsb_range(target_range As Range) As Range

    Debug.Print target_range.Count
    Debug.Print target_range.SpecialCells(xlCellTypeVisible).Count 'выдает то же значение что и для исходного диапазона
    
    Set vsb_range = target_range.SpecialCells(xlCellTypeVisible) 'возвращает не видимый диапазон, а исходный
 
End Function

Sub vsb_range_select()
    Debug.Print Selection.Count
    Debug.Print Selection.SpecialCells(xlCellTypeVisible).Count 'выдает правильное значение для видимого диапазона

    Selection.SpecialCells(xlCellTypeVisible).Select 'выделяет только видимую часть
    
End Sub

Set result_rng = Intersect(Selection, [3:1048576])

 Set result_rng = Intersect(Selection, Union([1:1], [5:1048576], [A:A], [D:XFD]))

Sub rows_del()
Dim r As Long, rng As Range
Set rng = Rows(ActiveSheet.UsedRange.Rows.Count + 1)
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        If Application.CountA(Rows(r)) = 0 Then Set rng = Union(rng, Rows(r))
    Next r
rng.Delete
End Sub

Function Get_Cell_Fill(TRG_CELL As Range)
Get_Cell_Fill = TRG_CELL.Interior.Color
End Function

{=SUM(1*(Get_Cell_Fill(D1:D17)<>16777215))}