formeln übertragen

Sub Neu()
Dim Anz%, TB, I%, LR, LB, lc, ld, le, k
Set TB = Sheets("Tabelle1")
LB = TB.Cells(Rows.Count, 1).End(xlUp).Row  'letzte Zeile der Spalte b
LB = LB + 4
lc = TB.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte c
lc = lc + 4
ld = TB.Cells(Rows.Count, 1).End(xlUp).Row  'letzte Zeile der Spalte d
ld = ld + 4
le = TB.Cells(Rows.Count, 1).End(xlUp).Row  'letzte Zeile der Spalte e
le = le + 4
LR = TB.Cells(Rows.Count, 1).End(xlUp).Row + 1 'letzte Zeile der Spalte A
LR = LR + 1
TB.Cells(LB, 2).Value = "Frage1": LB = LB + 1
TB.Cells(lc, 3).Value = "Frage2": lc = lc + 1
TB.Cells(ld, 4).Value = "Frage3": ld = ld + 1
TB.Cells(le, 5).Value = "Frage4": le = le + 1
TB.Cells(LR, 1).Value = "Seminar": LR = LR + 1
TB.Cells(LR, 1).Value = "Trainer": LR = LR + 3
Anz = InputBox("Anzahl der Teilnehmer ?", "Neues Seminar")
If Anz > 0 Then
For I = 1 To Anz
TB.Cells(LR, 1).Value = "TN" & I
LR = LR + 1
Next
LR = LR + 3
TB.Cells(LR, 1).Value = "Ges"
End If
End Sub