Dim zeile As Integer
Dim i As Integer
 
zeile = 9
 
Do
    If Sheets("Tabelle1").Cells(zeile, 2).Value = Sheets("Tabelle1").Cells( _
      zeile + 1, 2).Value Then 
        For i = 5 To 24
            Sheets("Tabelle1").Cells(zeile, i).Value = Sheets("Tabelle1").Cells( _
              zeile + 1, i - 1).Value
            If i Mod 3 = 0 Then i = i + 1 'lässt die Spalten 7,10,13,16,19,22 
            ' aus
        Next
    Else
        'hier ähnlich verfahren wie oben
    End If
 
    zeile = zeile + 2
Loop Until Sheets("Tabelle1").Cells(zeile,2).Value = ""