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:

Please Login or Register  to view this content.

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

I used the copy-paste method and saved individual ranges as arrays.
Thanks