Sub TagetWithOvalShapes()
On Error Resume Next
'Define the worksheet
Dim SH As Worksheet
Set SH = ThisWorkbook.Sheets("Sheet2")

'Define Last row to delete existing Oval shapes in C Column
ResultLastRow = SH.Range("C" & Rows.Count).End(xlUp).Row

'Using Loop to clear the data in column C
For S = 2 To ResultLastRow
SH.Shapes.Range(Array("Oval" & SH.Range("C" & S).Row)).Delete
SH.Range("C" & S).Clear
Next

'Define the Last Row based on Column B
LastRow = SH.Range("B" & Rows.Count).End(xlUp).Row

Dim Shap As Shape
'Add the shapes based on
For R = 2 To LastRow
With SH.Range("C" & R)
Set Shap = SH.Shapes.AddShape(msoShapeOval, _
Left:=.Left, _
Top:=.Top, _
Width:=15, _
Height:=.Height)
End With

If SH.Range("B" & R).Value >= 50 Then
Shap.Fill.ForeColor.RGB = RGB(0, 226, 0)
Shap.Visible = msoTrue
SH.Range("C" & R).Value = "Target Reached"
SH.Range("C" & R).InsertIndent 3
Else:
Shap.Fill.ForeColor.RGB = RGB(226, 0, 0)
Shap.Visible = msoTrue
SH.Range("C" & R).Value = "Target Not Reached"
SH.Range("C" & R).InsertIndent 3
End If
Shap.Name = "Oval" & SH.Range("C" & R).Row
Next
SH.Columns(3).AutoFit
End Sub