Position shape to middle left of cell

[biznez]

Hi, im trying to move shape to the left & center of cell A12, not sure what change is required. Have this so far. Thanks

With ActiveSheet.Shapes.Range(Array("OvalSort1"))
            .Visible = True
    .Height = .Height
    .Width = .Width
    .Left = Range("A12").Left
    .Top = Range("A12").Top
End With