End Range on next blank cell

[n0v1c3]

I would like to know how to get this macro to end it's range when it comes across a blank cell.

This is the code I have so far:

Private Sub Worksheet_Calculate()
InsRowDown
End Sub

Public Sub InsRowDown()

Dim lngStartRow As Long
Dim lngEndRow As Long
Dim m As Integer
Dim n As Long

With ActiveSheet
    'work from bottom up
    'set start row
    lngStartRow = Range("B" & CStr(Application.Rows.Count)).End(xlUp).Row
    'set end row
    lngEndRow = ????
    
    'loop through all used rows in column B starting at bottom
    For n = lngStartRow To lngEndRow Step -1
        If IsNumeric(Range("B" & CStr(n)).Value) Then
            'insert rows below
            For m = 2 To Range("B" & CStr(n)).Value
                Rows(n + 1).Insert
            Next m
        End If
    Next n
End With
End Sub

What do I need to replace the ???? with so that it doesn't keep inserting rows beneath cells that have empty rows beneath them already?

Thanks in advance.

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[pike]

Hi n0v1c3
Can you please go back to your first post and edit and add the code tags
It would be easier to help if we knew what you are doing

    lngStartRow = Range("B1").End(xlDown).Row
    'set end row
    lngEndRow = Cells(Rows.Count, 2).End(xlUp).Row

[n0v1c3]

I've tried

    lngEndRow = Cells.Find(" ", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

but it keeps inserting rows under the new additions instead of finding the last blank cell as the end of the range.

[pike]

maybe..

 exit sub

[pike]

maybe..

 n =   lngEndRow to lngStartRow Step -1