reformat data if column criteria is meet

That macro is in the Workbook Open event. If you want it attached to a button then create a Module level procedure and point the button to that procedure.

You'll need to change the PasteSpecial line to

ThisWorkbook.Sheets("Input").Range("A1").PasteSpecial(xlPasteValues)