Hi Rui,

Try:

Dim NextCell As Range

Set NextCell = Sheets("Sheet1").Cells(Rows.Count, 1). _
End(xlUp)(2)

---
Regards,
Norman



"Rui" wrote in message
...
Hi,

I have two sheets of data I would like to merge. The problem is that both
are variable. I would like to past the second sheet of data below the
first.
Can you please let me know the code to find the first blank cell in the
first
sheet?

Thanks
Rui