Write values from selection into 1D array

Hi,
How can I write values from selected range into an 1D array?
This is my code so far:

 .Range(XStart & ":" & XEnd).SpecialCells(xlCellTypeVisible).Select
Dim XArr As Variant
XArr = Selection

The problem is that this code writes into my array only value from the first selected cell. Can you advise how to write all values from filtered range into an array?

Thanks in advance
Regards