@osvaldomp Depois da sua incrível solução, me ocorreu uma dúvida.
For i = 1 To Range("Equipamentos").Rows.Count
If Range("Equipamentos[Ações do Estoque]")(i).Value = "" Then
wsC.Activate
wsC.Shapes.Range(Array("Picture 50", "Picture 49", "Picture 51")).Select
Selection.Copy
wsEPI.Activate
Range("Equipamentos[Ações do Estoque]")(i).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementTop 0.75
Range("Equipamentos[Ações do Estoque]")(i).Value = 1
End If
Next i
Esse código aí é responsável por copiar os macros da aba _Calculos e colar em Cad_EPI. Por esse motivo os nomes estão se repetindo, Imagem50, Imagem49... Existe alguma maneira de fazer com que eles sejam copiados para a aba Cad_EPI com nomes em sequência para que eu não tenha que editar todos manualmente? São muitos macros para ter que renomear manualmente.
Boa Noite, aguardo ansiosamente um retorno.