Option Explicit
Sub Tri()
Application.ScreenUpdating = 0
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
Range("B14:J49").Sort Key1:=Range("E14"), Order1:=xlDescending, Key2:=Range( _
"J14"), Order2:=[B][COLOR=Red]xlDescending[/COLOR][/B], Header:=xlNo
Range("B13").Select
yaMasque
End Sub
Sub yaMasque()
Dim yaC As Range
Application.ScreenUpdating = 0
For Each yaC In ThisWorkbook.Sheets("CoursePointHFTC").Range("E14:E49")
ThisWorkbook.Sheets("CoursePointHFTC").Unprotect "rollers"
If IsEmpty(yaC) Then yaC.EntireRow.Hidden = True
ThisWorkbook.Sheets("CoursePointHFTC").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="rollers"
Next
End Sub