Foro Excel

Buenas necesito el código para pegar un rango de excel como imagen, tengo este código en una macro pero me da un error y no acabo de entender porque.
ActiveSheet.Pictures.Paste(Link:=True).Select

En excel 2007 Pestaña Inicio - Pegar - Como Imagen - Pegar como imagen

Se me olvido subir el fichero adjunto. La idea es pegar un rango como imagen en otra hoja, he puesto un botón con una macro y el código es el siguiente.
Adema se produce un caso curioso la primera vez que lo ejecuto funciona perfectamente pero a partir de la segunda da un error en la ejecución del código en la línea ActiveSheet.Pictures.Paste.Select

Sub pegar()
Range("A1:B4").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Pictures.Paste.Select
End Sub

Gracias