I am trying to copy values in Trade up Meals cells A9; B9; J18; K18; L18;
N18; O18 (and for every 12th Row below these values) to a sheet called
Ingredient Products starting on the row below the last populated cell.

I am using the following code but am getting very unreliable data, does the
code look ok?

Thanks

Sub TradeupCostToIngredients_Post()
Dim I As Long, j As Long, k As Long, l As Long
Dim rng As Range, cell As Range
With Worksheets("Trade Up Meals")
Set rng = Union(.Range("A9"), .Range("B9"), .Range("J18"), .Range("K18"),
..Range("L18"), .Range("N18"), .Range("O18"))

I = 0
j = 0
l = 0
For Each cell In rng
j = cell.Row
l = l + 1
k = Worksheets("Ingredient Products").Cells(Rows.Count,
l).End(xlUp).Row + 1
Do While Not IsEmpty(.Cells(j, cell.Column))
.Cells(j, cell.Column).Copy
Worksheets("Ingredient Products") _
.Cells(k, l).PasteSpecial xlValues
k = k + 1
j = j + 12
Loop
Next
End With

Sheets("Ingredient Products").Select

Columns("B:B").Select
Columns("B:B").EntireColumn.AutoFit

Columns("C:G").Select
Application.CutCopyMode = False
Selection.NumberFormat = "#,##0.00"
Range("A1").Select

Set rng = Range("A1:G1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, 7)
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select

Sheets("Master").Select
Range("A1").Select

End Sub