If you ever have to find the next available blank row in a worksheet you could try the following code below. This code would generally be used in conjunction with automatically populating the newly found blank row with data.
Dim BlankRow As Long
BlankRow = Range("A65536").End(xlUp).Row + 1
The above works by working up from the bottom of the sheet (row 65536) until it finds a cell containing data in column A. The Row+1 then adds one to the row number so it moves down to the blank cell beneath! If you desired it, you could change the Range(“A65536”).End(xlUp) to Range(“A1”).End(xlDown) and it will then work down the sheet from cell A1.
To make this easier, you could perhaps incorporate this into a small command button on the worksheet itself that finds the next blank row for you when you click it. Try this post on adding a command button to a worksheet.