Select range between last row in a-column and last column in b-column.

[NichoD]

Hello, I am fairly new to VBA.

I have a long list filled with values where some are blanks. I want to select a range between the last value found in A-column, for example A300 and the last value found in B-column, for example B320.

So far my code is:

Dim IRow As Long
Dim ICol As Long
Dim rng As Range

IRow = Cells(1, Rows.Count).End(xl).End(xlUp).Row
ICol = Cells(2, Columns.Count).End(xlToLeft).Column

I wonder how I should code rng to select all values between A300 and B320.

Thanks in advance.

 

[Joe4]

Welcome to the Board!

Not sure why you are trying to find the last column. That doesn't seem to have anything to do with your question.
Here is one way to do what you want:

Sub Test()

    Dim lrA As Long
    Dim lrB As Long
    
'   Find last row in column A with data
    lrA = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Find last row in column B with data
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Select range in columns A and B after last row of A down to last row of B
    Range(Cells(lrA + 1, "A"), Cells(lrB, "B")).Select
    
End Sub

 

[NichoD]

Welcome to the Board!

Not sure why you are trying to find the last column. That doesn't seem to have anything to do with your question.
Here is one way to do what you want:

Sub Test()

    Dim lrA As Long
    Dim lrB As Long
   
'   Find last row in column A with data
    lrA = Cells(Rows.Count, "A").End(xlUp).Row
   
'   Find last row in column B with data
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
   
'   Select range in columns A and B after last row of A down to last row of B
    Range(Cells(lrA + 1, "A"), Cells(lrB, "B")).Select
   
End Sub

Thank you so much! This is what i have been looking for!

Kind regards.

 

[Joe4]

You are welcome.
Glad I was able to help!