Ok I added this to my code to start at the last low.
I seems like the code is working but the program never finishes. I just
have a blank window until I hit excape which takes me to my Excell
sheet with values loaded as expected.

What is causing the performance issue

ActiveSheet.Cells(i, 1).End(xlDown).Offset(1, 0).Resize(1, x).Value =
arr