Select the lastrow using the active cell

[khalid79m]

How can I select a range using the activecell & lastrow or offset & lastrow?

:think:

[Bob Phillips]

With ActiveCell

.Resize(.End(xlDown).Row - .Row + 1).Select
End With

[n8Mills]

...or perhaps:

Range(ActiveCell, ActiveCell.End(xlDown)).Select

...or If you want to use a variable you can do this:

Dim lastRow as Long

lastRow = ActiveCell.End(xlDown).Row

Range(ActiveCell, ActiveCell.Offset(lastRow, 0)).Select

[khalid79m]

I need to use the activecel and lastrow, but the lastrow based on column A if that makes sense




Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

range("b2:b" & lastrow)


but i want be able to say




Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

Activecell & Lastrow

[Bob Phillips]

The clues were all there



Dim LastRow As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
With ActiveCell

.Resize(LastRow - .Row + 1).Select
End With

[khalid79m]

thanks, again for all the help

[n8Mills]

...or this way:

Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row

Range(ActiveCell.Address & "," & Range("B" & LastRow).Address).Select
... for those of us who have never touched .Resize or .Count before.

[Bob Phillips]

...or this way:

Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row

Range(ActiveCell.Address & "," & Range("B" & LastRow).Address).Select
... for those of us who have never touched .Resize or .Count before.

You might want to try that!