Tabellenwerte kopieren und transponieren

Sub ProjektListeErzeugen()
Dim Zellwert As String 'Variable für Zellwert
Dim Ze As Double 'Zeilenzähler für die Loop-Schleife
Dim StartZelle As String
Dim ZielZe As Double 'Ausgabezeile für das Sheet H-Projekte
Dim ZielSp As Integer 'Ausgabespalte für das Sheet H-Projekte
Ze = 2
ZielSp = 3
ZielZe = 2
Worksheets("test_csv1").Activate
StartZelle = Range("A2").Formula
With ActiveSheet
Do Until IsEmpty(Cells(Ze, 1))
If Cells(Ze, 1).Formula = StartZelle Then
If Cells(Ze, 5).Formula  "STR" Then
Zellwert = Cells(Ze, 1).Offset(1, 5).Formula
Sheets(2).Cells(ZielZe, ZielSp).Formula = Zellwert
ZielSp = ZielSp + 1
'MsgBox Zellwert
ElseIf Cells(Ze, 5).Formula = "STR" Then
'                    Zellwert = Cells(Ze + 1, 1).Offset(1, 5).Formula
'                    Sheets(2).Cells(ZielZe, ZielSp).Formula = Zellwert
'                    ZielSp = ZielSp + 1
End If
Else
ZielZe = ZielZe + 1
StartZelle = Cells(Ze, 1).Formula
End If
Ze = Ze + 1
Loop
End With
End Sub