try

Sub Macro1()

Dim oCell As Range
Set oCell = Range("e2")'selet your cell

l = oCell.Left
t = oCell.Top
h = oCell.Height
w = oCell.Width

ActiveSheet.Shapes.AddShape msoShapeOval, l, t, w, h
End Sub