Zeile selektieren und kopieren

Private Sub cb_IMPORT_Click()
ListBox1.List = Range("A1").CurrentRegion.Value
End Sub

dieses makro kopiert die selektierten werte in die tabelle2 ab zeile 1. ich möchte aber dass die selektierten werte in der tabelle 1, anschliessend an die bestehenden werte kopiert werden. was muss an diesem makro angepasst werden?

Private Sub cb_COPY_Click()
Dim iCounter As Integer, jCounter As Integer
Dim sTxt As String
jCounter = 1
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
Rows(iCounter + 1).Copy Tabelle2.Rows(jCounter)
jCounter = jCounter + 1
End If
Next iCounter
End Sub

für hilfe bin ich sehr dankbar.
mfg andi