select the next row after the last existing row (VBA)

[abadilala]

Hi, I want to select the next row after the last existing row. For example I have existing data with 2000 row. what I want to do is to select the row number 2001. However, I don't want to use Range A:2001.
Is there any way to do it using macro excel?

 

[Michael M]

Try

Sub MM1()
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).EntireRow.Select
End Sub

 

[Rick Rothstein]

Hi, I want to select the next row after the last existing row. For example I have existing data with 2000 row. what I want to do is to select the row number 2001. However, I don't want to use Range A:2001.
Is there any way to do it using macro excel?

I am assuming by the highlighted text above that you mean there is not particular column that is guaranteed to always contain the last piece of data. If I am wrong, then use what Michael suggested in Message #2 . But if I am correct, then use this macro instead...

Sub RowPastLastDataRow()
  Cells.Find("*", , xlValues, , xlRows, xlPrevious).Offset(1).EntireRow.Select
End Sub

 

[abadilala]

Yes Rick, your assumption was right.
I tried to use your code below, and want to paste the selection data into the row. but not works.

Cells.Find("*", , xlValues, , xlRows, xlPrevious).Offset(1).EntireRow.Select
Selection.Paste

I saw the problem was because it select all the row. What I want to select is column A only, then paste the selected data.

 

[Rick Rothstein]

I saw the problem was because it select all the row. What I want to select is column A only, then paste the selected data.

The reason I selected the entire row is because I thought that is what you meant when you said "what I want to do is to select the row number 2001". This should do what you are asking for...

Cells(Cells.Find("*", , xlValues, , xlRows, xlPrevious).Offset(1).Row, "A").Select