Sub Entire()
Dim DnR%, D(), i%
Const UpR = 5 'начальная строка, с которой начнем проверять даты
DnR = Cells(Rows.Count, 13).End(xlUp).Row 'определим последнюю заполненную ячейку по столбцу М (он под 13 номером)

D = Range("M" & UpR & ":M" & DnR).Value 'для скорости, возьмем в массив все даты из столбца М
For i = 1 To UBound(D, 1) 'в цикле переберем все даты
    If D(i, 1) > Date Then'сравниваем дату из таблицы с сегодняшней датой
            Rows(i + UpR - 1 & ":" & i + UpR - 1).EntireRow.Hidden = True 'если больше чем сегодня - скрываем
    End If
Next i
End Sub

Sub Entire2()
Dim DnR%
Const UpR = 5 'начальная строка, с которой начнем проверять даты
DnR = Cells(Rows.Count, 13).End(xlUp).Row  'определим последнюю заполненную ячейку по столбцу М (он под 13 номером)
   
Rows(UpR & ":" & DnR).EntireRow.Hidden = False 'откроем строки
End Sub