Resizing

[kalynx]

Hi!

I'm trying to select the active cell and all the non-empty cells below it. Can anyone tell me why this doesn't work:

Sub Selecting()
Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row


ActiveCell.Resize(Lastrow, 2).Select


End Sub

Thanks!

 

[My Aswer Is This]

Try this:

Sub Selecting()
'Modified 1-4-2018 3:45 AM EST
Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
ActiveCell.Resize(Lastrow - ActiveCell.Row + 1, 1).Select
End Sub