A specific example:
Range("I1").End(xldown).Select

A second possible answer:
Activecell.End(xlDown).Select

Third:
Cells(65536,Activecell.Column).End(xlUp).Select

"filo666" wrote:

is there a function that locate me at the last writed cell in a column (I
thought about: sendkeys ^ {end} but with this it goes to the last column and
row)

also the same function but for rows

pd. I want functions, sendkeys works but I don't like to use it because the
structure of the program is difficult to understand with sendkeys....

TIA