Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = 0
Range("B3:E16").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo
Range("G3:J16").Sort Key1:=Range("G3"), Order1:=xlAscending, Header:=xlNo
Range("A1").Select
Application.ScreenUpdating = 1
End Sub