[Spirosgr]

Καλησπέρα Δημήτρη.
Έστω μια περιοχή b2:d16, στο κέντρο της οποίας, θέλουμε να εισάγουμε μια x εικόνα.
Χρησιμοποίησε το πιο κάτω τμήμα κώδικα, προσαρμόζοντας το στο έργο σου:

Dim rng As Range
    Set rng = Sh1.Range("b2:d16")
    With Sh1.Pictures.Insert("Διαδρομή εικόνας συν όνομα εικόνας συν κατάληξη πχ .png")
        .Height = rng.Height / 2
        .Width = rng.Width / 2
        .Left = rng.Left + ((rng.Width - .Width) / 2)
        .Top = rng.Top + ((rng.Height - .Height) / 2)
    End With

με αυτόν τον υπολογισμό, η εικόνα θα πάει ακριβώς στο κέντρο της περιοχής b2:d16.

Όμως
Η μέθοδος Pictures.Insert που χρησιμοποιείς, δεν είναι και η καλύτερη,
διότι είναι μόνο για τον υπολογιστή σου...
Αν το βιβλίο ανοίξει σε άλλο υπολογιστή, η εικόνα δεν εμφανίζεται (*βλέπε εικόνα 1)

Καλύτερα, να διαβάσεις και να χρησιμοποιήσεις, την μέθοδο AddPicture
όπου μπορείς να έχεις μόνιμο αποτέλεσμα στην εικόνα.