One Macro for multiple buttons

My VBA script uses a button; when clicked it sorts data in a different sheet. The button is looks for a specific item, in this case "Parkersburg-Vienna WV". I refer to these items as locations. I have 20 of them. Is there a way to write one Macro and have the location as a variable. I want to avoid copying and pasting the same macro 20 times and, if I make changes, copy and paste 20 times again.

Here is the macro:

Private Sub CommandButton1_Click()

Dim End_of_Column_G As Range

'Clears all filters from Performance Report

On Error Resume Next

Sheets("Performance Report").ShowAllData

'Looks for last row in column G

With Sheets("Performance Report")

Set End_of_Column_G = .Range("G65536").End(xlUp)

End With

'Looks at Performance Report

Sheets("Performance Report").Select

'Sorts data - based on location

ThisWorkbook.Sheets("Performance Report").Range("A2" & ":" & End_of_Column_G.Address).AutoFilter Field:=1, Criteria1:="Parkersburg-Vienna WV"

'Sorts data - entire block, up to "End With" is to sort from smallest to largest Q-Score

ActiveWorkbook.Worksheets("Performance Report").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Performance Report").AutoFilter.Sort.SortFields.Add Key:=Range("D2" & ":" & End_of_Column_G.Offset(0, -3).Address), _

    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Performance Report").AutoFilter.Sort

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

End With

'In the event that sheet is scrolled down

ActiveSheet.Range("A3").Select

End Sub