Disclaimer: I may have used a macro 10 yrs ago and I need another now.

I have a csv file I am opening in excel. It is actually now in an xlsm file.
it has records with fields separated by , and CRs.
I need to remove the CR field separations and leave the CR record separations.

I can't do a replace in Word because it will also replace all the record separators. There is nothing unique that I can key on.

I think a macro will work, but how do I get it to repeat to the end of the records.

This is what I recorded for the first Record.

Range("A2").Select <<< start
Selection.Cut
Range("B2").Select
Selection.Cut
Range("A3").Select
Selection.Cut
Rows("2:3").Select
Selection.Delete Shift:=xlUp
Range("A3").Select <<< start again

now it needs to repeat to the end of the records.

thanks