Lekker op twee plekken bezig.
Niet echt een handige opzet om er een macro voor te maken.
Probeer het zo maar eens.
Sub VenA()
Dim a(9)
ar = Sheets("cake en taarten").UsedRange
Set d = CreateObject("Scripting.Dictionary")
For j = 1 To UBound(ar)
If ar(j, 2) = "Naam van het gerecht:" Then
a(0) = ar(j + 1, 3)
a(1) = ar(j, 3)
End If
If ar(j, 2) = "Aantal personen:" Then a(3) = ar(j, 3)
If ar(j, 2) = "Totale inslag" Then
a(2) = CDbl(ar(j, 8))
a(4) = CDbl(ar(j + 1, 8))
a(5) = CDbl(ar(j + 5, 8))
a(6) = CDbl(ar(j + 2, 8))
a(7) = CDbl(ar(j + 3, 8))
a(8) = CDbl(ar(j + 4, 8))
a(9) = ar(j + 7, 8)
If a(1) <> "" Then d(d.Count + 1) = a
End If
Next j
Sheets("totaal overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(d.Count, 10) = Application.Index(d.items, 0)
End Sub