last Cell in a selection?

  • Thread starter Thread starter andycharger
  • Start date Start date
A

andycharger

Hi, Im selecting all cells on my page as a selection.
I am then trying to move my cursor to the last row and moving th
cursor down again to the first blank row.

Can anyone tell me how I select the last cell in my selection and mov
the cursor down 1 row to the blank row?

Thanks

I was using

Range("A1").End(xlDown).CurrentRegion.Select

to highlight all the user cells
 
Hi
all cells on my page
Click to expand...
You can usedrange then

Sub test()
Dim Rcount As Long
Rcount = ActiveSheet.UsedRange.Rows.Count
Cells(Rcount + 1, 1).Select
End Sub
 
Dim rng as Range
set rng = Selection.Columns(1).Cells
rng.offset(rng.rows.count,0).Resize(1,1).Select

or

rng.offset(rng.rows.count,0).Resize(1,Selection.Columns.count).Select
 
Back
Top