Boa noite amigos do Fórum.

Estou com certa dificuldade em terminar um código, preciso que ele envie a imagem capturada na 'caixa de imagem' para uma determinada célula de uma planilha.
Conto com a ajuda de vocês. Segue abaixo o código incompleto.

Private Sub Image1_Click()

'Abre uma janela para o usuario escolher um arquivo para anexar

'On Error Resume Next

Dim Pict As Variant
Dim ImgFileFormat As String

'Filtro para extensões de imagens permitidas
ImgFileFormat = "Image Files JPG (*.jpg), *.jpg, Image Files GIF (*.gif), *.gif, Image Files BMP(*.bmp), *.bmp"

'Abre a caixa de seleção para que o usuário nevegue entre os diretorios selecionando a respectiva imagem
Pict = Application.GetOpenFilename(ImgFileFormat)

If Pict = False Then Exit Sub

??? não sei como fazer a partir daqui para a imagem ser copiada da imagebox para uma determinada celula de uma planilha


End Sub