Hi,
I found this code in another thread which I have modified to suit my needs, it works well until there is only one record in my WIP Data sheet matching the criteria and it then creates 8 instances of the same thing in the destination worksheet rather than 1.
Code
Dim d
If Application.CountIf(Sheets("WIP Data").Columns(8), "Cutting Lists") = 0 Then Exit Sub
With Sheets("Wip Data")
With .Range("a1", .Cells.SpecialCells(11)).Resize(, 16)
d = Filter(.Parent.Evaluate("transpose(if(" & .Columns(8).Address & _
"=""Cutting Lists"",row(1:" & .Rows.Count & "),char(2)))"), Chr(2), 0)
d = Application.Index(.Value, Application.Transpose(d) _
, [{2,3,4,5,6,7,8,14}])
End With
End With
Sheets("Cutting Lists").Range("b4").End(xlUp)(2) _
.Resize(UBound(d, 1), 8).Value = d
Display More
Any help would be greatly appreciated