Finding Last Empty Cell

[jsauriol]

Here is my problem:

I have data that updates every couple of days and I have designed a macro to take care of the data, but i need to log it in a worksheet. The worksheet gets filled out everytime this report is done. I need to find the first empty row in the log so that the new information can be placed there. And so on for the next time.

The cells that I need this to look in are B74:B550. From there if the first empty cell is found i can fill out the rest of the row.

[Bob Phillips]

[vba]

With Workbooks("Log.xls").Worksheets(1)
Set NextFreeCell = .Range("A1").End(xlDown)
End With
[/vba]

[jsauriol]

you always make is so simple. Thanks again for saving the day!

[Bob Phillips]

It would help if I got it right

[vba]

With Workbooks("Log.xls").Worksheets(1)
Set NextFreeCell = .Range("A1").End(xlDown).Offset(1,0)
End With
[/vba]