Das hat mir schon mal geholfen :) vielen Dank!

Das einzige was ich jetzt noch nicht gelöst bekomme, ist dass ich immer eine leere Zeile eingefügt bekomme und dann nach der leeren Zeile die Daten aus der anderen Tabelle eingefügt werden. Also jedes mal beim ausführen des Makros entsteht zwischen den vorhandenen und den eingefügten Daten eine leere Zeile. 

Mein Code sieht jetzt so aus

Sub Übertragung()
'Variablen dimensionieren
    Dim TabelleDatenbank As ListRow
    Dim Datenbank As ListObject
    Dim AngebotsTabelle As ListObject
    Dim i As Long
    Dim Dateiname As Variant
    Dim wsQuelle As Worksheet
    Dim wbQuelle As Workbook

'Screenupdating deaktivieren
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
'Datei wählen
    Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls*),*.xls*")
    If Dateiname <> False Then

'Variablen definieren
    Set Datenbank = tb_Datenbank.ListObjects(1)
    Set TabelleDatenbank = Datenbank.ListRows.Add
    Set wsQuelle = Workbooks.Open(Filename:=Dateiname).Worksheets(1)
    Set wbQuelle = Workbooks.Open(Filename:=Dateiname)
    Set AngebotsTabelle = wsQuelle.ListObjects(1)
    
    
    For i = 1 To AngebotsTabelle.ListRows.Count
'Neue Datenzeile erstellen
    Set TabelleDatenbank = Datenbank.ListRows.Add

'Daten übertragen
    With TabelleDatenbank.Range
     .Cells(2).Value = AngebotsTabelle.ListRows(i).Range.Cells(2).Value
     .Cells(3).Value = AngebotsTabelle.ListRows(i).Range.Cells(3).Value
     .Cells(4).Value = AngebotsTabelle.ListRows(i).Range.Cells(4).Value
     .Cells(5).Value = AngebotsTabelle.ListRows(i).Range.Cells(5).Value
     .Cells(6).Value = AngebotsTabelle.ListRows(i).Range.Cells(6).Value
     .Cells(7).Value = AngebotsTabelle.ListRows(i).Range.Cells(7).Value
     .Cells(8).Value = AngebotsTabelle.ListRows(i).Range.Cells(8).Value
     .Cells(9).Value = AngebotsTabelle.ListRows(i).Range.Cells(9).Value
     .Cells(10).Value = AngebotsTabelle.ListRows(i).Range.Cells(10).Value
     .Cells(11).Value = AngebotsTabelle.ListRows(i).Range.Cells(11).Value
     .Cells(12).Value = AngebotsTabelle.ListRows(i).Range.Cells(12).Value
     .Cells(13).Value = AngebotsTabelle.ListRows(i).Range.Cells(13).Value
     .Cells(14).Value = AngebotsTabelle.ListRows(i).Range.Cells(14).Value
     .Cells(15).Value = AngebotsTabelle.ListRows(i).Range.Cells(15).Value
     .Cells(16).Value = AngebotsTabelle.ListRows(i).Range.Cells(16).Value
     .Cells(17).Value = AngebotsTabelle.ListRows(i).Range.Cells(17).Value
     .Cells(18).Value = AngebotsTabelle.ListRows(i).Range.Cells(18).Value
     .Cells(19).Value = AngebotsTabelle.ListRows(i).Range.Cells(19).Value
    End With
 Next
 'Arbeitsmappe schließen
    wbQuelle.Close SaveChanges:=False
 End If
 'Screenupdating aktivieren
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub