I fixed it using below:
Dim scnType As ScenarioType = api.Scenario.GetScenarioType()
If (scnType = ScenarioType.Actual Or scnType = ScenarioType.budget) Then
api.Data.ClearCalculatedData("A#COG762D:U1#None",True,True,True)
api.Data.Calculate("A#COG762D:U1#None:U2#None:U3#None:U4#None:U5#None:U6#None:U7#SysProLoad:U8#None:I#None:F#EndBalLoad:O#Import = A#COG931:F#EndBal:U1#None:U2#None:U3#None:U4#None:U5#None:U6#None:U7#Actual:U8#None:I#None:F#EndBal:O#BeforeElim * A#KPI142:F#EndBal:U1#1520:U2#None:U3#None:U4#None:U5#None:U6#None:U7#Actual:U8#None:I#None:F#EndBal:O#BeforeElim / 100")
End If