Macro para copiar y pegar varias imágenes de una hoja a otra una por una

[capitanesteban]

Buenos días, tengo una base con varias imágenes, lo que necesito es copiar cada imagen a otra hoja una por una como jpg, Es decir, seleccionar la primer imagen, darle click derecho, copiar y seleccionar la otra hoja y darle pegado especial y pegar como jpg. Hice una macro de lo que necesito pero busco una forma de que este mismo código se repita en todas la imágenes sin que tenga que repetir mil veces este código:

Sheets("datos").Select

ActiveSheet.Shapes.Range(Array("@@B7")).Select

Selection.Copy

Sheets("imágenes ok").Select

Range("A7").Select

ActiveSheet.PasteSpecial Format:="Imagen (JPEG)", Link:=False, _

DisplayAsIcon:=False

Este código lo repito dependiendo de las imágenes que quiera copiar y pegar como jpg. Es necesario que sea así, una por una. En mi caso no es opción copiar y pegar todas a la vez, necesito que sea una por una copiando y dando pegado especial y pegar como jpg, una por una. Solicito de su apoyo para tener este código paro sólo escribirlo una vez y que esta acción se repita para todas las imágenes que tengo, el número de imágenes siempre varía.. Adjunto un archivo para ejemplificar lo que puse. Muchas gracias.

imagen de una hoja a otra.xls