Store visble databodyrange in filtered table into an array

Hello everyone
I am trying to store the filtered visible rows of a table but I encountered an error
This is the code I am trying to use

Sub Test()
    Dim ws As Worksheet
    Dim a As Variant
    
    Set ws = Sh1
    a = ws.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Value
End Sub

and this is the error
001.png
Any idea how to fix that?