Macro that will loop through a filtered list and print each selection

I have a spreadshee that is always filtered in cell A9. I would like to create a macro to loop through each selection criteria and print. I have been able to create the initial macro but I need to be able to copy the macro to different worksheets/workbooks in the future and have it work. What is happening now is that I copy it and the pages that print are blank because it's looking for the selection criteria from the original sheet (the selection criteria will change from sheet to sheet but the filtered cell will always be A9). Any help would be greatly appreciated. Here is what I have:

Sub Printing()
'
' Printing Macro
'

'
    ActiveSheet.Range("$A$9:$J$62").AutoFilter Field:=1, Criteria1:= _
        "123456 ACT LLC"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.Range("$A$9:$J$62").AutoFilter Field:=1, Criteria1:= _
        "234567 Alberto's Trucking"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.Range("$A$9:$J$62").AutoFilter Field:=1, Criteria1:= _
        "345678 AV Trucking"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveSheet.Range("$A$9:$J$62").AutoFilter Field:=1
End Sub