I received the following code from Tom Olgivy which extracts values in
worksheet Recipes A9;B9;J28;K28;L28;N28 and O28 and pastes these values in
worksheet Master Costs starting at A1:G1 and works down depending on the
last value in Recipes A:

I want now to continue 'pasting' in Master Costs, but this time the 'source
data' comes from a worksheet called 'Meals'. My 'Meals' worksheet has the
same layout that is in the Recipe worksheet except I want to start pasting
these values from Meals worksheet whever the pasting stops in the code
below. The ending row obviously changes depending on the data in Recipes. -
I'm lost as to where I should place this code within the code below

Thanks



Sub Master_Cost_Post()
Dim i As Long, j As Long, k As Long, l As Long
Dim rng As Range, cell As Range
With Worksheets("Recipes")
Set rng = Union(.Range("A9"), .Range("B9"), .Range("J28"), .Range("K28"),
..Range("L28"), .Range("N28"), .Range("O28"))

i = 0
j = 0
l = 0
For Each cell In rng
j = cell.Row
k = 1
l = l + 1
Do While Not IsEmpty(.Cells(j, cell.Column))
.Cells(j, cell.Column).Copy
Worksheets("Master Costs") _
.Cells(k, l).PasteSpecial xlValues
k = k + 1
j = j + 22
Loop
Next
End With