Spalte einfügen / VBA-Code anpassen

Sub Datum()
'** Einsortieren nach Datum
Dim i As Integer, j As Integer
Dim lngAnzZeilenWs1 As Long, lngAnzZeilenDat As Long, lngAnzZeilenName As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
lngAnzZeilenWs1 = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row 'letzte genutzte Zeile in Tabelle   _
_
1 auslesen
j = 9 'Erste Zeile Bereich1 mit einem Wert
For i = 10 To lngAnzZeilenWs1
If IsDate(ws1.Cells(i, 6)) Then
ws1.Rows(i).Copy
Do
If ws2.Cells(j, 6) > ws1.Cells(i, 6) Then
ws2.Rows(j).Insert shift:=xlUp
Exit Do
End If
If ws2.Cells(j, 6) = "" Then
ws2.Rows(j).Insert shift:=xlDown
Exit Do
End If
j = j + 1
Loop Until ws2.Cells(j, 1) = "" 'Schleife beenden sobald in Spalte A die erste Zelle  _
ohne Inhalt kommt
End If
Next i
Application.CutCopyMode = False
End Sub