Copiar células e colar como imagem - excel.

[Cristiano Diniz Pena]

Olá Pessoal!!!

Gravei uma macro para copiar uma região fixa de uma planilha e colar em outra só que no formato de imagem, após esta colagem preparar a planilha destino para receber a proxima imagem que terá o mesmo tamanho utilizando referencias relativas, e por fim voltar para a planilha inicial. O problema é que a macro funciona algumas vezes e depois começa a dar erro e vai para o depurador funcionando parcialmente. Estou procurando ajuda pois meus conhecimentos são poucos no tema e por mais que procurei na net não consegui melhorar a programação. Desde já agradeço pela ajuda e pelo tempo dispensado!

 

Sub Envia_Proposta_Tècnica()
'
' Envia_Proposta_Tècnica Macro
'

'
    Range("A1:X30").Select
    Selection.Copy
    Sheets("Proposta Técnica").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 6")).Select
    ActiveWindow.SmallScroll Down:=30
    Range("A31").Select
    Sheets("Seleção de produtos").Select
    Application.CutCopyMode = False
    Range("Z7").Select
End Sub