I need a macro to select from the first non-blank cell (containing data) to
the last non-blank cell in a row containing data. There are blank cells
between the first and last cell containing data.

I then want to move that selected range (not the data) to another row.
Something like:

FirstCell = first non-blank cell
LastCell = last non blank cell
Range = (firstcell,lastcell)
Range.Offset(-1,0)

Gene