Check if current row is last one, if so add a new row

[grabrail]

I have a workbook that when a certain field is changed to a specific value a pop up form appears that needs to be filled in, when the form is submitted, the data entered is put into a table on the main worksheet.

There are currently 30 empty rows that can be populated, and up to now this has been more than enough, however over the last few days there have been a few entries that fill up all 30 rows and need more.

Currently my code looks for the next empty row, and then puts the data there using the following code:

 Worksheets("VI Sheet").Range("A112").Select
        'get next blank cell
            While ActiveCell.Value <> ""
                ActiveCell.Offset(1, 0).Range("A1").Select
            Wend
        'input results

the lines of code after this populate the row with the data.

My question is, how do I add or change the code to check if it has reached the 30th empty row in currently cell A143, if it has reached this row and it is populated, it will add a new row below to paste the data?

 

[OaklandJim]

What is in row 144 so that you need to "add a new row below to paste the data"

 

[grabrail]

All the rows where the data is pasted are a laid out table, not a formatted table, just created with outlines

row 144 is the bottom of this table and is just formatted in a solid color to mark the end of the data, below this there is just some text.

 

[grabrail]

Ive achieved what I need by adding a 0 value in the first cell of the black line, formatted with black text so its not visible, then modified my code to the following

 While ActiveCell.Value <> ""
                            ActiveCell.Offset(1, 0).Range("A1").Select
                            If ActiveCell.Value = "0" Then
                                ActiveCell.Offset(-1, 0).Range("A1").Select
                                ActiveCell.Offset(1, 0).EntireRow.Insert
                            End If