VBA Code Help

The Code below works perfectly except it will not move anything to the second tab that is beyond column M.. Can someone please help me fix it so that it cuts and pastes onto the second tab all the way to column S?

Sub Auto_Open()
    Dim oToolbar As CommandBar
    Dim oButton As CommandBarButton
    Dim MyToolbar As String
    Dim oPic As stdole.IPictureDisp
    Dim oMask As stdole.IPictureDisp
    ' Give the toolbar a name
    MyToolbar = "IPG Toolbar"

    On Error Resume Next
    ' so that it doesn't stop on the next line if the toolbar's already there

    ' Create the toolbar; PowerPoint will error if it already exists
    Set oToolbar = CommandBars.Add(Name:=MyToolbar, Position:=msoBarTop, Temporary:=True)
        oToolbar.Protection = msoBarNoCustomize
    If Err.Number <> 0 Then
          ' The toolbar's already there, so we have nothing to do
          Exit Sub
    End If

    On Error GoTo ErrorHandler

    ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
    ' And set some of the button's properties
    With oButton
          .FaceId = 6853
          .TooltipText = "IPG Non-Confidential"
          .Caption = "IPG &Non-Confidential"
         .OnAction = "Non"
         .Style = msoButtonIconAndCaption
    End With
    
    ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
    ' And set some of the button's properties
    With oButton
          .FaceId = 6852
          .TooltipText = "IPG Green"
          .Caption = "IPG &Green"
         .OnAction = "Green"
         .Style = msoButtonIconAndCaption
    End With
    
     ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
    ' And set some of the button's properties
    With oButton
          .FaceId = 6859
          .TooltipText = "IPG Yellow"
          .Caption = "IPG &Yellow"
         .OnAction = "Yellow"
         .Style = msoButtonIconAndCaption
    End With
    
 ' Now add a button to the new toolbar
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
    ' And set some of the button's properties
    With oButton
          .FaceId = 6850
          .TooltipText = "IPG Red"
          .Caption = "IPG &Red"
         .OnAction = "Red"
         .Style = msoButtonIconAndCaption
    End With
   
    oToolbar.Visible = True

NormalExit:
    Exit Sub   ' so it doesn't go on to run the errorhandler code

ErrorHandler:
     'Just in case there is an error
     MsgBox Err.Number & vbCrLf & Err.Description
     Resume NormalExit:
End Sub
Sub Non()
    IPG "Non-Confidential"
End Sub

Sub Green()
    IPG "Confidential Green"
End Sub

Sub Yellow()
    IPG "Confidential Yellow"
End Sub

Sub Red()
    IPG "Confidential Red"
End Sub
Sub IPG(classification)
 
    On Error Resume Next
       
      
     
        ActiveSheet.PageSetup.LeftFooter = "Caterpillar: " & classification
        
    
End Sub

That code creates buttons on a toolbar called "IPG". Doesn't move data