If you really want to delete the rows, one way:

Range(ActiveCell.Row & ":3000").Delete


If you just want to delete the cells in the range from ActiveCell to
U3000, one way:

Range(ActiveCell, Cells(3000,21)).Delete Shift:=xlUp

In article ,
"Pasmatos" wrote:

Hi.
Please help me.

I need to select a range based on a start location that's diferent sheet by
sheet.
I tried but i couldn't make it.
The start position it's variable depends on that i have select cell, and the
final position is U3000. I want select this range and them delete all the
rows of the range.

Rows(ActiveCell.select:u3000).Select