Range selection till the end of row

[paulcherianc]

Macro should select all the cells in between the range ("B7:AH7") till the last used row.

But my macro is selecting till the end of the sheet even the blank cells.

Can anyone help me to fix this?

Sub LastRowSelection()

    Worksheets("Main Data").Select
    Range("B7:AH7").Select
    Range(Selection, Selection.End(xlDown)).Select

End Sub

 

[NARAYANK991]

Hi ,

The problem is your column B is blank.

If you manually carry out the same actions , you will get the same result.

Manually select the range B7:AH7 , and then press the END DOWN key ; the selection will now encompass all the rows till row 1048576.

Change the code as follows :

Sub LastRowSelection()
    Worksheets("Main Data").Select
    Range("A7:AH7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Columns(2).Resize(, Selection.Columns.Count - 1).Select
End Sub

Narayan

 

[paulcherianc]

Thank you so much Narayan!