Quando você diz que "editou" eu estou supondo que você alterou esse trecho de código:

    With oImage
        .Left = oCell.Left
        .Top = oCell.Top
        .Width = oCell.Width
        .Height = oCell.Height
    End With

Para isso:

    With oImage
        .Left = oCell.Left
        .Top = oCell.Top
        .Width = oCell.Width / 1.2
        .Height = oCell.Height / 1.2
    End With

Ou seja, na prática você reduziu o tamanho da imagem. Assim, para centralizar a imagem na célula (sem se preocupar com quanto de fator foi aplicado) o jeito mais fácil é você adicionar às coordenadas do topo (`Left` e `Top`) a metade do tamanho da célula e diminuir a metade do tamanho da imagem (que precisa então ser calculado *antes*, conforme o fator que você está aplicando). Tente assim então:

    factor = 1.2 ' Separei em uma variável só pra deixar claro que você pode
                 'mudar sem precisar mexer nas duas linhas finais.
    With oImage
        .Width = oCell.Width / factor
        .Height = oCell.Height / factor
        .Left = oCell.Left + oCell.Width / 2 - .Width / 2
        .Top = oCell.Top + oCell.Height / 2 - .Height / 2
    End With