Try working backwards
For j = UBound(vData) To LBound(vData) step -1