append to excel worksheet

[phobia]

Ik ben al dagen aan het proberen en googlen.
Maar ik kom geen steek verder.

Misschien dat hier iemand mij op de juiste weg kan helpen!

Wat ik wil:
De data van verschillende excel files copieren in een master file

Het lukt me al om de file te openen, de data te selecteren en te plakken in de master excel file.

Maar met het plakken gaat er iets mis, want telkens word vanuit "A1" geplakt.
Dus de data van de vorige file worden overschreven.

Waar ik naar opzoek ben is dus dat ik na het plakken de eerst lege cell in column "A" actief maak, zodat de volgende keer het plakken vanuit die positie gebeurt.

Wat ik heb is:
Dit is niet de hele code, maar wel waar het moet gebeuren.

Dim SourceBook, TargetBook As Excel.Workbook
                Dim TargetSheet As Excel.Worksheet
                Dim xlWorkSheet As Excel.Worksheet
                TargetBook = xlApp.Workbooks.Open(report)
                TargetSheet = TargetBook.ActiveSheet
                xlApp.Visible = True
                xlApp.DisplayAlerts = False
                Dim x As Integer = 1
                For Each Filename As ListViewItem In FilesList_lv.Items

                    SourceBook = xlApp.Workbooks.Open(MonthFolder & Filename.Text)
                    xlWorkSheet = SourceBook.ActiveSheet
                    'Copy Range Source file
                    xlWorkSheet.Range(xlWorkSheet.Range("A2", "E2"), xlWorkSheet.Range("A2").End(Excel.XlDirection.xlDown)).Copy()
                    'Past Source into Target file
                    TargetBook.ActiveSheet.Paste()

                    'Set active cell to the end of the copied data
                    'so the next loop the data will be appended
                    TargetSheet.Range("A1").End(Excel.XlDirection.xlDown).Select() 'This will no work

                    SourceBook.Close()
                    Button2.Text = "Merge bestanden (" + x.ToString + ")"
                    x = x + 1
                Next