Se pesquisar no forum sobre "Inerir Imagem" encontrara vários tópicos a respeito, mas segue uma rotina que foi indicada no tópico viewtopic.php?f=10&t=24503:

Sub InsereImagem()
    Dim MySht As Worksheet
    Dim MyPic As Shape
    Dim Foto As Variant
    Dim Esquerda, Topo, Largura, Altura As Single

    Foto = Application.GetOpenFilename("Imagem (*.jpg;*.jpeg;*.gif;.*png), *.jpg;*.gif;*.jpeg;*.png,Todas (*.*), *.*", Empty, "Desenvolvido por.: Álvaro Horta e Suely Soares", Empty, Empty)
    
    Esquerda = ActiveCell.Left + 1
    Topo = ActiveCell.Top + 1
    Largura = ActiveCell.Width - 1
    Altura = ActiveCell.Height - 1

    If Foto <> False Then
        
        Set MySht = ActiveSheet
        
        Set MyPic = MySht.Shapes.AddPicture(Foto, True, True, Esquerda, Topo, Largura, Altura)
                    
    End If
    
End Sub

Obrigado mesmo Mauro, e desculpe por não ter procurado conforme você informou, eu sou novo aqui no forum e estou me adaptando e eu estava precisando muito desse código.
Valeu

Boa noite Fábio

Como você e novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador