Sort Data On Multiple Worksheets

I am using the code below to transfer data from a single sheet to approx'
200 sheets. These sheets are staff training sheets, one per staff member.
This code works great. What I would like to know is, is there a way to then sort the data on these sheets in decending order? I have tried on sheet change but this seems to stop the transfer to other pages.


Sub Tranfser()
Dim shtTemp As Worksheet
Dim lngOutRow As Long
Dim rngData As Range
For Each rngData In Range("A5", Range("A5").End(xlDown))
Set shtTemp = GetWorksheet(rngData.Offset(0, 1).Value)
If Not shtTemp Is Nothing Then ..........................