I'm not too sure as to how your workbook is set out but here is a code that could help steer you in the right direction:-
Dim ar As Variant, i As Integer
Dim wsA As Worksheet, ws As Worksheet
Set ws = Sheets("Master")
ar = Array("Agency 1", "Agency 2", "Agency 3", "Agency 4")
Application.ScreenUpdating = False
For i = 0 To UBound(ar)
Set wsA = Sheets(CStr(ar(i)))
.AutoFilter 2, ar(i)
.Offset(1).EntireRow.Copy wsA.Range("A" & Rows.Count).End(3)(2)
Application.ScreenUpdating = True
This code basically transfers all relevant data to the individual agency worksheets (I've assumed four Agencies in the array used in the code).
Following is a link to a sample workbook with the code implemented and assigned to the "TEST ME" button:-
Click on the button to see how it works.
If you need further assistance then please upload a sample of your file to a free file sharing site such as WeTransfer or Drop Box then post the link to your file back here. Please ensure that your sample is an exact replica of your actual file and if your data is sensitive then please use dummy data.
I hope that this helps.
P.S. Please advise if you'd like the transferred data to be deleted from the Master sheet or if you'd rather keep all data in the Master sheet and just have the destination sheets refreshed.