NextFree = Activecell.Offset(-1,0).End(xlToRight)

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Wendy" wrote in message
...
I'm having to transpose a lot of data that are currently arranged in rows
to
columns, it's the output of a 1:m data table.

I can't quite find the right syntax that activates the next available cell
in a row above.

Many thanks

Wendy