Sub LastRowWithData_xlUp_1()
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
MsgBox lastRow
End Sub
Sub LastRowWithData_xlUp_2()
Dim lastRow As Long
lastRow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
MsgBox lastRow
End Sub
No comments:
Post a Comment