Hai provato a mettere una select prima dell'istruzione?:
codice:
Worksheets("Ultima Rosa").Range("A52").Select
Selection.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
Ciao