Werte in Tabelle ab A2 anzeigen

Private Sub ListBox1_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
Dim intEndUp As Long
Dim intR As Long
Dim intC As Long
Dim i As Integer
If Not MsgBox("Soll " & ListBox1.List(ListBox1.ListIndex) & " eingetragen werden?", vbQuestion + vbYesNoCancel, "Frage!") = vbYes Then Exit Sub
If Sheets("Tabelle3").Range("A1") > "" Then
intEndUp = Sheets("Tabelle3").Range("A65536").End(xlUp).Row + 1
Else
intEndUp = 1
End If
intR = ListBox1.ListIndex 'geklickte Zeile
intC = ListBox1.ColumnCount 'Anzahl Spalten
'Werte aus jeder Spalte der ListBox lesen und eintragen
For i = 1 To intC
Sheets("Tabelle3").Cells(intEndUp, i).Value = ListBox1.List(intR, i - 1)
Next i
MsgBox ListBox1.List(intR) & " wurde eingetragen!", vbInformation + vbOKOnly, "Erfolg!"
End Sub