Datenimport

Sub Makro()
Dim bereich As Range
Worksheets("10VRS_Data").Activate
Set bereich = Selection
bereich.Copy
Worksheets("10VRS").Paste
End Sub

Der Import an sich funktioniert auch, das problem ist, dass ich (weil die Daten gegliedert sind und ich die Gliederung mit importieren will) die kompletten Zeilen in Tabellenblatt 1 markieren und somit importieren muss. In dem Tabellenblatt 2 stehen aber rechts hinter den importierten Daten noch andere Daten, die dort bleiben müssen, aber dadurch, dass ich die kompletten Zeilen importiere, werden diese anderen Daten überschrieben.
Ich hoffe, ihr habt eine Lösung dafür, denn mit der VBA-Programmierung kenne ich mich nicht gut aus.
Vielen Dank im Voraus!