Hi sisco98,

You can try one of these:

1)
Sub Test1()
Cells(Rows.Count, "A").End(xlUp).Select
End Sub

2)
Sub Test2()
Range("A:A").Find("*", Cells(1), _
xlValues, xlWhole, xlByRows, xlPrevious).Select
End Sub

Regards,
KL


"sisco98" wrote in message
...
Hi Everybody,

Does anyone know a way to select the last used cell in a column by using
macro? For example, there is a range filled with data from "A1" to "A30",
but
the closing cell is always changing (A32,A36...). I would like to find the
last data in column "A" by using VLOOKUP automatically.

Thank you in advance for your help,

sisco98