Macro Button to hide rows based date in column

Try this:

Option Explicit

Sub HideRows()
    Application.ScreenUpdating = False
    Dim lr As Long, i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = lr To 4 Step -1

        If Not Range("K" & i) = "" And Range("K" & i) < Date - 7 Then
            Range("A" & i).EntireRow.Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True

End Sub