Data corruption using VBA array function on filtered data

Question

Take a very simple spreadsheet

Run the following code on it. It just copies the sheet to an array and then back again. It should not make any difference to the sh