VBA Create Command button and create/add new code to it

[Mr Excelinator]

Hi there chaps.

I'm trying to create a piece of code to do the following:

In a new workbook that has just been created from a Master report to 1. create a command button & 2. add a create piece of code (for example sort a column).

I need help 1 & 2 above.

The rationale for this is to create output reports to be sent to excel illiterate users, who will then have a series of buttons available to them so they can press to sort/subtotal the report in various ways.

Any help much appreciated.
Mr. Excelinator.

 

[Mr Excelinator]

My code currently is as such but falls down

Sub Create_PP_Button()
Dim Obj As Object
Dim Code As String
ActiveSheet.Select
'create button
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
    Obj.Name = "PPButton"
'button text
    ActiveSheet.OLEObjects(1).Object.Caption = "Subtotal by Project Partner"
'macro text
    Code = "Sub PPButton_Click()" & vbCrLf
    Code = Code & "Call PP_Sort" & vbCrLf
    Code = Code & "End Sub"
'add macro at the end of the sheet module
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
        
    End With
    
End Sub