Wenn Wert in Spalte A sich aendert dann Leer Zeile

Sub Auto_open()
Dim strDatei As String, strPfad As String, sFile As String
Dim strText, arrHeader, iCounter As Integer, strDelim As String
arrHeader = Array("KdNr", "EAN", "Titel", "Anzahl", "Auftragsnummer")
strPfad = "c:\thueringen\"
strDatei = "Bestellung_" & Format(Date, "dd.mm.yyyy") & ".xls"
sFile = Dir(strPfad & "*.txt")
If sFile  "" Then
Application.ScreenUpdating = False
Open strPfad & sFile For Input As #1
strText = Split(Input(LOF(1), 1), vbCrLf)
Close #1
If InStr(strText(0), vbTab) > 0 Then
strDelim = vbTab
Else
strDelim = ";"
End If
With Workbooks.Add.Sheets(1)
If Join(arrHeader, strDelim)  strText(0) Then
.Cells(1, 1).Resize(, 5) = arrHeader
End If
For iCounter = 0 To UBound(strText)
.Cells(iCounter + 2, 1).Resize(, 5) = Split(strText(iCounter), strDelim)
Next
With .Parent
.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\kueck\Eigene Dateien\" _
& "Winline\Winline_Abfragen\Thueringen\Bestellungen\" & strDatei
.Close
End With
End With
End If
End Sub