Sub ResetFilterToEmp()
With ThisWorkbook.Sheets("SUMMARY")
On Error Resume Next
.ShowAllData
On Error GoTo 0
.Range("O3:V3").AutoFilter
.Range("O3:V3").AutoFilter
End With
End Sub

Sub ResetFilterToEmpByPeriod()
With ThisWorkbook.Sheets("SUMMARY")
On Error Resume Next
.ShowAllData
On Error GoTo 0
.Range("G3:N3").AutoFilter
.Range("G3:N3").AutoFilter
End With
End Sub