VB in Excel skips or doesn't execute section where values of User Input form set back to 0

Hello Experts.

This question relates to resetting the fields of a user input form back to zero values after the clerk has input amounts and clicked on an object that saves their input.  

The input form and temp data is in one workbook and then the permanent data is being saved to a different workbook before returning to the input form's workbook to clear the fields

Below is the code.  If I use F8 to step through the VB code it works.  But if I click on the object that executes that same code it doesn't .  I don't understand why.

I have highlighted where the section that isn't working starts with
 ' *******RESET USER INPUT FIELDS TO VALUE OF ZERO ************

As an aside, Is there a better way to do the clearing than how I am attempting to do it?

Sub PriorDayDropAddBackPrintandSave()
'
' PrintandSave Macro
' Print Form and Save
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1_1 As Worksheet
    Dim ws2_1 As Worksheet
    Dim strCopyFromFile As String, strSaveToFile As String
    Dim inputRange_ws1_1 As Range
    Dim outputRange_ws2_1 As Range
    Dim LastRowInput_ws1_1 As Long
    Dim intResponse As Integer
    Dim intRespPriorDayDropPrintandSave As Integer, int2RespPriorDayDropPrintandSave As Integer
    
    intRespPriorDayDropPrintandSave = MsgBox("By Clicking Ok you hereby certify that the form is true and correct", vbOKCancel)
    If intRespPriorDayDropPrintandSave = vbOK Then
        '/user clicked OK
        
            ' Add This Prior Day Drop Add Back Data to Shift Data workbook on worksheet Prior Day Add Back Data
            '
            intResponse = MsgBox("Are You sure your form Prior Day Drop Added Back report is complete and correct and you want to transfer Data?", vbOKCancel + vbInformation)
            If intResponse = vbOK Then
                'Resume, the user pressed ok
                ' Start of Final Prior Day Drop Add Back Print Report
'                    Application.ScreenUpdating = False

                ' Copy Range to Ensure NO "Draft Only" is Visible and Paste to area so it prints
                    Range("X18").Select
                    Application.CutCopyMode = False
                    Selection.Copy
                    Range("C21").Select
                    ActiveSheet.Paste
                   
                ' Print function
                    Application.ScreenUpdating = True
' *                    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
                '    ActiveWindow.SelectedSheets.PrintOut Copies:=1
' *                    Workbooks("Machine Money Pull.xlsm").Worksheets("Prior Day Drop Add Back").Activate
' *                    Range("PriorDayDropAddBackStartInputCell").Select
            
                ' End Print of Final Prior Day Drop Add Back
                    
'                    Application.ScreenUpdating = False
                        
                    strCopyFromFileInMachineMoneyPull = "Machine Money Pull.xlsm"
                    strSaveToFileInMachineMoneyPull = "C:\Documents and Settings\Bill.BILL_BACKOFFICE\Desktop\BCJ Master Forms\Workpapers\Shift Details Data.xlsx"
                        
                     Set wb1 = ActiveWorkbook
                     Set ws1_1 = wb1.Sheets("Prior Day Add Back Export Temp")
                    
                         
                  '~~> Test if save to workbook is open
                     On Error Resume Next
                     Set wb2 = Workbooks(Dir(strSaveToFileInMachineMoneyPull))
                     Set ws2_1 = wb2.Sheets("Prior Day Add Back Data")
                            
                        
                     On Error GoTo 0
                        
                       If wb2 Is Nothing Then
                            Set wb2 = Workbooks.Open(strSaveToFileInMachineMoneyPull)
                            Set ws2_1 = wb2.Sheets("Prior Day Add Back Data")
                        
                        End If
                    
                  '~~> Begin Save info
                     LastRowInput_ws1_1 = ws1_1.Range("A" & Rows.Count).End(xlUp).Row
                     LastRowOutput_ws2_1 = ws2_1.Range("A" & Rows.Count).End(xlUp).Row + 1
                        
                     Set inputRange_ws1_1 = ws1_1.Range("A5:AC" & LastRowInput_ws1_1)
                     Set outputRange_ws2_1 = ws2_1.Range("A" & LastRowOutput_ws2_1)
                        
                     inputRange_ws1_1.Copy
                       outputRange_ws2_1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                       :=False, Transpose:=False
                     Application.CutCopyMode = False
                   '    Application.ScreenUpdating = True
                        
                   ' Save updated data file then close
                        ActiveWorkbook.Save
                        ActiveWorkbook.Close
                   '    Application.Visible = True
  '                      Application.ScreenUpdating = True
          
          Workbooks("Machine Money Pull.xlsm").Sheets("Prior Day Drop Add Back").Activate
          Workbooks("Machine Money Pull.xlsm").Sheets("Prior Day Drop Add Back").Visible = True
          Range("H23").Select
          
 '         Application.ScreenUpdating = False
 
 ' *******RESET USER INPUT FIELDS TO VALUE OF ZERO ************
                Range("G25").Select
                ActiveCell.FormulaR1C1 = "0"
                Range("G25").Select
                Selection.Copy
                Range(Selection, Selection.End(xlDown)).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Application.CutCopyMode = False
                Range("H23").Select
                ActiveCell.FormulaR1C1 = "0"
                Range("H23").Select
 ' *******END RESET USER INPUT FIELDS TO VALUE OF ZERO ************
            
                     
'          Application.ScreenUpdating = True
          
          Workbooks("Machine Money Pull.xlsm").Sheets("Login").Visible = True
          
          Workbooks("Machine Money Pull.xlsm").Sheets("Login").Activate
          Range("I39").Select
          Workbooks("Machine Money Pull.xlsm").Sheets("Prior Day Drop Add Back").Visible = False
                    
                        
                    Else
                      'The user pressed cancel
                      'Cancel event
                End If
        
    End If
          
             
End Sub

Select allOpen in new window