error 1004 unable to get pastespecial property of range class

[Aflatoon]

The second line should also read:

Sheets(sname).Cells(rTitle + 1, "A").PasteSpecial xlPasteValues

(note the constant starts with XL and not X1)