Ok Correct. I added that line. Add sheet. Would it be too much of a change to have the new data in another sheet.
Also,
trying to understand ur code.
what is For Each RI In Range(RN, Range("XFD" & RN.Row).End(xlToLeft))