Textdatei importieren und berechnen

https://www.herber.de/bbs/user/83484.xlsm
_
Sub DatensaetzeLesen()
ThisWorkbook.Worksheets("Tabelle2").Activate
Dim Alter As Single
Dim letzte As Long
Dim i As Long
Dim Steuersatz As Double
Dim Zelle As Range
letzte = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.UsedRange.ClearFormats
'der Tabellenbereich sollte sich automatisch anpassen
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$H$7"), , xlYes).Name = "Personal"
On Error GoTo Fehler
Open ThisWorkbook.Path & "\eindaten.txt" For Input As 1
i = 1
Do Until EOF(1)
Line Input #1, Zeile
T = Split(Zeile, ";")
For k = 0 To UBound(T)
Cells(i, k + 1).Value = T(k)
Next k
i = i + 1
Loop
For i = 2 To letzte
Select Case Cells(i, 5)
Case Is