Try this
Public Sub ByRegion()
'NOTES IN THIS SUB ARE TYPICAL OF ALL SUBS IN THIS MODULE
'Erase existing worksheet or chart if present.
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
Sheets("By Region").Delete
Charts("By Region Chart").Delete
On Error GoTo 0
Application.DisplayAlerts = True
'Select the input sheet and range A2
Worksheets("INPUT").Select
Range("A60").Select
'Create pivot table
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Range("A60").CurrentRegion.Address).CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="NAME", _
ColumnFields:="M", PageFields:="REGION"
ActiveSheet.PivotTables("PivotTable1").PivotFields("AMOUNT").Orientation = _
xlDataField