Hello JJ33002,

You can use this method to find the last cell in a column...

Dim Rng As Range
Set Rng = ActiveSheet.Cells(Rows.Count, "A")

Now use can easily return the address, select it, etc. because you hav
declared the last address as an object variable.

Addx = Rng.Address
Rng.Select
Rng.Offset(1, 0).Value = "100"

Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=49711