Hi Mark,

The easiest solution to your first problem is to get rid of the first
line.
This way all you have to do is select the row 2 cell of a column you
want processed then run the macro.

The second change would be to convert...

Loop Until IsEmpty(ActiveCell.Offset(0, -1))

To...

Loop Until IsEmpty(Cells(Activecell.Row,1))

Try that out on a copy of you sheet.

I know it would be nice to have an inputbox to input the columns to
process, but for such a small number of columns would it be worth the
effort?

Ken Johnson