Hi Asu,

I need to find first empty cell in h cloumn in the active sheet

Try:

Cells(Rows.Count, "H").endup(2)

and it needs to write the value which comes from another
sheet in the same workbook.

Try:

Sheets("OTHER SHEET").Range("A1").Copy Destination:= _
ActiveSheet.Cells(Rows.Count, "H").endup(2)

Change the cell and sheet references to suit.

---
Regards,
Norman



"Asu" wrote in message
...
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