Set the start to the first cell to analyze. This will find the next
available cell in the same column.

Set thecurrentcell = Worksheets("XXXX").Range("XXX")

Do While thecalcedcell.Value < 0
Set thecalcedcell = thecalcedcell.Offset(1, 0)
Loop


"Wendy" wrote:

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