You can create Button, and use this VBA Macro to call your planning sequence, and save the data.
Dim lResult As Long
lResult = Application.Run("SAPExecutePlanningSequence", "PS_5")
If lResult = 1 Then ' Run Successfully
lResult = Application.Run("SAPExecuteCommand", "PlanDataSave")
End If
nb: I assume you're running on Embedded Planning since you want to execute planning sequence.
hope it helps.
Cheers,