Add info to last row of table?

I have a couple columns of information, and when you click the button it
copies the rows into a new row in a table. This is well and all, but if you
click the button again, it adds a new row to the table, but pastes the info
into that same row as before. I need it to paste it into the last row of the
table every time. This is the code I'm using right now. Thanks!

Sub AddCase()
'
' AddCase Macro
'

'
Sheets("Database").Select
Range("G7").Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True
Range("G8").Select
Sheets("Add to Database").Select
Range("B8:H8").Select
Range("H8").Activate
Selection.Copy
Sheets("Database").Select
Range("A8").Select
ActiveSheet.Paste
End Sub