Inhalt auslesen und in Tabellenblätter eintragen

Sub Test()
' Uebertrag der Daten aus P.-Doku
Dim Bereich As Range
Dim I
I = 1
With Tabelle4
Set Bereich = .Range("E13", .Cells(.Rows.Count, 5).End(xlUp))
End With
For Each Bereich In Bereich
If Bereich  "" Then
I = I + 1
End If
'MsgBox ("Register_" & I)
If Worksheets("Content").Cells(I, 5) = Bereich Then
Worksheets("Register_" & I).Cells(21, 4) = Worksheets("P.-Doku").Cells(I + 2, 6)
Worksheets("Register_" & I).Cells(24, 4) = Worksheets("P.-Doku").Cells(I + 2, 5)
Worksheets("Register_" & I).Cells(30, 4) = Worksheets("P.-Doku").Cells(I + 2, 3)
Worksheets("Register_" & I).Cells(27, 4) = Worksheets("P.-Doku").Cells(I + 2, 2)
Worksheets("Register_" & I).Cells(11, 5) = Worksheets("P.-Doku").Cells(I + 2, 32)
Worksheets("Register_" & I).Cells(15, 5) = Worksheets("P.-Doku").Cells(I + 2, 4)
Else
End If
Next Bereich
End Sub

Kann mir jemand von Euch auf die Sprünge helfen - wäre super!
Gruß, Stefan