Thanks chip, worked great. I did try something like r =
Range("B2").Value previously but it wouldn't read.

Can I use something else other than...
Cells(arr(x, 2), arr(x, 3)).PasteSpecial ???????????
There is data and a chart in the copy and paste and the chart gets
lost. I believe there are options to PasteSpecial but I don't have
the reference materials.