Asu:
Another method,
r = Range("H65536").End(xlUp).Row
Cells(r + 1, "H").Select
--
天行健，君*以自強不息
地勢坤，君*以厚德載物
http://www.vba.com.tw/plog/
"Asu" wrote:
Hi;
I need to find first empty cell in h cloumn in the active sheet and it needs
to write the value which comes from another sheet in the same workbook.
Thanks