Boa noite,

Segue sugestão utilizando VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect([A1:A2], Target) Is Nothing Then
        With ActiveSheet.Shapes("Rectangle 1")
            .Width = [A1].Value 'Largura
            .Height = [A2].Value 'Altura
        End With
    End If
End Sub

É só colar o código no evento Change da sua planilha.
Insira um retângulo que, provavelmente, assumirá o nome de "Rectangle 1".
Lembrando que "Rectangle 1" é o nome da forma, que pode ser alterado conforme sua necessidade.

Abraço

Bom dia amigo.

Primeiramente obrigado pela resposta.
Segundo, eu sou novo na parte do VB, como chego nesta parte do Evento?

Consegui encontrar... Porém, eu precisava que ele usasse uma célula que contém um valor multiplicando. exe: Cél A1 = B2*3, mas nao consigo referenciar com cálculos dentro da célula..

Consegui encontrar... Porém, eu precisava que ele usasse uma célula que contém um valor multiplicando. exe: Cél A1 = B2*3, mas nao consigo referenciar com cálculos dentro da célula..

Amigo substitua a linha do código:

If Not Application.Intersect([a1:a2], Target) Is Nothing Then

Por:

If Not Application.Intersect([b1:b2], Target) Is Nothing Then

caso os dados sejam inseridos nas células "b1" e "b2"

Anexo planilha exemplo