Select the lastrow using the active cell

[khalid79m]

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

[Bob Phillips]

[vba]

With ActiveCell

.Resize(.End(xlDown).Row - .Row + 1).Select
End With
[/vba]

[n8Mills]

...or perhaps:

[vba]Range(ActiveCell, ActiveCell.End(xlDown)).Select[/vba]

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

[vba]Dim lastRow as Long

lastRow = ActiveCell.End(xlDown).Row

Range(ActiveCell, ActiveCell.Offset(lastRow, 0)).Select[/vba]

[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

[vba]

Dim LastRow As Long

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

.Resize(LastRow - .Row + 1).Select
End With
[/vba]

[khalid79m]

thanks, again for all the help

[n8Mills]

...or this way:

[vba]Dim LastRow As Long

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

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

[Bob Phillips]

...or this way:

[vba]Dim LastRow As Long

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

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

You might want to try that!