Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010

Sub DoWork()
    Dim cell As Range, rngDel As Range, dNew As Variant, m As Integer, i As Integer
    Set regex = CreateObject("vbscript.regexp")  
    arrmonth = Array("Jan", "Feb", "Mar", "Apr", "May", "June", "July", "Aug", "Sept", "Oct", "Nov", "Dec")  
    regex.IgnoreCase = True
    regex.Pattern = "[a-z]+ (\d+) ([a-z]+) (\d{4}) (\d{2}\:\d{2}\:\d{2}) (AM|PM)"  
    
    With ActiveSheet
        'Neue Spalte erstellen  
        .Range("G:G").EntireColumn.Insert Shift:=xlToRight  
        
        'Datumszellen in Spalte F verarbeiten  
        For Each cell In .Range("F2:F" & .Cells(Rows.Count, "F").End(xlUp).Row)  
            'Teste ob Zelle dem Muster entspricht  
            Set matches = regex.Execute(cell.Value)
            If matches.Count > 0 Then
                'Monat als Zahl ermitteln  
                m = 0
                For i = 0 To UBound(arrmonth)
                    If UCase(matches(0).Submatches(1)) = UCase(arrmonth(i)) Then
                        m = i + 1
                        Exit For
                    End If
                Next
                'Umgewandelte Zeit in Zelle eintragen  
                cell.Offset(-1, 1).Value = CDate(matches(0).Submatches(0) & "." & m & "." & matches(0).Submatches(2) & " " & matches(0).Submatches(3) & " " & matches(0).Submatches(4))  
                'zu löschende Zeile sichern  
                If Not rngDel Is Nothing Then
                    Set rngDel = Union(rngDel, cell.EntireRow)
                Else
                    Set rngDel = cell.EntireRow
                End If
            End If
            
        Next
        'zu löschende Zeilen löschen  
        If Not rngDel Is Nothing Then
            rngDel.Delete
        End If
    End With
End Sub