Without testing, when deleting, go bottom to top


For i = UBound(arr) to 1 Step -1