Count up and down from active cell

[KX13ZN]

I have macro that runs from an 'activecell' that copies the active row, macro included into the row right below it. Its a simple insert new row macro. Now my problem is i only need 16 continuous rows. After 16 rows i need a different event to trigger. But i can't figure out how to count 16 continuous rows when you can insert rows from any point in the 16 row continuum.
There are blank cells above and below the first instance of the active cell before the macro is run.

eg:

blank
macro <- insert macro can be run from this cell
blank

running the macro would make it:

blank
macro <- insert macro can be run from this cell
macro <- insert macro can be run from this cell
blank

So i need a row count to check above and below the active cell(macro) and if the total rows counted is higher than 16 then the macro doesn't run.

I've looked at count rows until blank but i can't figure out how the code works or how to adapt it to my needs

Please help, i would really appreciate some advice.

While it may not be needed the insert macros code is:

ActiveSheet.Unprotect
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Select
ActiveSheet.protect
ActiveSheet.EnableSelection = xlUnlockedCells

 

[KX13ZN]

I Solved it myself.... oh well if anyone finds this and has a similar issue this is what i did to get my answer, figured it was simple.

Sub Insert()


' Insert Macro
Dim u As Integer
Dim d As Integer
Dim up As Integer
Dim down As Integer
Dim limit As Integer
 
u = -1
d = 0
up = 0
down = 0


        Do While ActiveCell.Offset(u, 0).Value > 1
            u = u - 1
            up = up + 1
        Loop
        Do While ActiveCell.Offset(d, 0).Value > 1
            d = d + 1
            down = down + 1
        Loop
        
        limit = up + down


If limit < 16 Then
    ActiveSheet.Unprotect
    ActiveCell.Select
    ActiveCell.EntireRow.Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
    ActiveSheet.Select
    ActiveSheet.protect
    ActiveSheet.EnableSelection = xlUnlockedCells
        Else
        MsgBox ("nope")
        On Error GoTo 0
End If
End Sub