I was unable to make this loop work the way that I wanted to. TO make
it work I had to add a Goto. I hate these but find them necessary
when I get stuck in a loop. I was trying to find the last column in a
row that has information in it and then putting my information in the
next column. Any thoughts?
Thanks,
Jay
x = 12
Do
If Log.Cells(QuoteRow, x).Offset(0, 1) = "" Then
Log.Cells(QuoteRow, x).Offset(0, 1) = Dt
GoTo E
Else
x = x + 1
End If
Loop Until Log.Cells(QuoteRow, x) = ""

E: