Hey,
Currently this pulls the data in one row
Ary = Application.Index(wb2.Sheets(4).Range("A8:U17").Value, Evaluate("row(1:10)"), Array(1, 3, 4, 7, 13, 14, 15, 16, 17, 18, 19, 20, 21)) Ws.Range("A" & L).Resize(10).Value = wb2.Sheets(4).Range("D3").Value
Ws.Range("B" & L).Resize(10).Value =...