Macro that will find the next empty row in a table

Hi...I am currently working on a budgeting project and need to copy data from one worksheet to the first available row on the main data worksheet. All of the data on the main worksheet is listed in a table. I have found a code that will take me to the first empty row, however the row it is locating is the first empty row after my table. I need the code to find either the first empty row in the table or the last populated row in the table. Unfortunately there are various blank cells throughout the table. This is what I currently have.

Sub PostPrepaid()
' PostPrepaid Macro
' Post monthly payment amount of all active prepaid accounts to main Data worksheet
    Sheets("Prepaid Data").Select
    Range("A31:I42").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("DATA").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(9, 0).Range("A1").Select
End Sub