Auto Filter by Row Number

Just hide the rows? This hides all the Used rows, and makes just row 5 visible.

If you want to count or sum or work with the data in the Visible row(s), extend the Macro to work on Visible Rows only.

[Code]
Option Explicit
Dim f As Long

Sub hiderows()

'Find last row in sheet

With Sheet1
f = .Cells(.Rows.Count, "A").End(xlUp).Row
If f < 2 Then f = 2

.Rows("2:" & f).EntireRow.Hidden = True
.Rows("5:5").EntireRow.Hidden = False

End With

End Sub