Add data to the next available row in an Excel table

Hi there,

I am looking to add data from one sheet to another using vba code.

Here's what I have so far:

Sub Test()

Sheets("Correspondence Log").Select

ProjectComponent = Range("B2").Value

Originator = Range("C2").Value

DocumentType = Range("D2").Value

Discipline = Range("E2").Value

Title = Range("F2").Value



Sheets("Database").Select

Set ws = ActiveSheet

Dim newrow As ListRow

Set newrow = ws.ListObjects("frmFileListDS").ListRows.Add


With nextrow

    .Range(1) = ProjectComponent
    .Range(2) = Originator
    .Range(3) = DocumentType
    .Range(4) = Discipline
    .Range(7) = Title
    

End With


End Sub

This code works to add code to the end of an excel table but how can I add this data to the next available row?

Any help would be gratly appreciated!