Row select not selecting all data

[saracat2012]

I'm using a row counter to select all data in a column, but it's dropping a number of rows at the end. When I run the below macro, it returns the correct number:

Sub Count_Rows()

Range("b4").Select
lastrow = ActiveCell.CurrentRegion.Rows.Count
MsgBox (lastrow)

End Sub

However, when I run the next macro to select the cells in column B that have data, it's dropping several rows (3-5 that I've witnessed, depending on the spreadsheet). The next macro is:

Sub selectdata()

Range("b4").Select
lastrow = ActiveCell.CurrentRegion.Rows.Count
Range("b4:b" & lastrow).Select

End Sub

Do I have something incorrect?

TIA

 

[Joe4]

That is because if you have blank rows, the count of rows will be less than the row number of your last populated cell in column B.
Try this instead:

Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B4:B" & lastrow).Select

 

[saracat2012]

That is because if you have blank rows, the count of rows will be less than the row number of your last populated cell in column B.
Try this instead:

Dim lastrow As Long
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B4:B" & lastrow).Select

Much appreciated. This worked like a charm.

 

[Joe4]

You are welcome.
Glad I was able to help!