du solltest an der Namensgebung deiner Objekte arbeiten. wenn irgendwann alles gleich heisst,dann blickst du nicht mehr durch. .Das funktioniert hier nur wenn die datenbank das aktive Blatt ist. 

Sub dfdf()
  
  With tb_Archiv.ListObjects("Archiv").ListRows.Add
   .Range.Value = tb_Datenbank.ListObjects(1).ListRows(ActiveCell.Row - ActiveCell.ListObject.HeaderRowRange.Row).Range.Value
  End With
  tb_Datenbank.ListObjects(1).ListRows(ActiveCell.Row - ActiveCell.ListObject.HeaderRowRange.Row).Delete
End Sub