Datenübertragung in anderes Tabellenblatt

Sub Datenübertragung()
'Zeilen werden von 5 bis 35 durchlaufen
For i = 5 To 35
'Wenn eine 1 in Spalte H also Urlaub...
If Sheets("TVöD").Cells(i, 8).Value = "1" Then
'dann ein U in Spalte D in Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
Sheets("Zeitdaten").Cells(i + 1, 4).Value = "U"
'Wenn eine 1 in Spalte J also Krankheit...
ElseIf Sheets("TVöD").Cells(i, 10).Value = "1" Then
'dann ein K in Spalte D imn Blatt Zeitdaten (i + 1) da Beginn erst in Zeile 6
Sheets("Zeitdaten").Cells(i + 1, 4).Value = "K"
End If
Next
End Sub