Select & hide first and last rows of data

[kernelku]

What I'm trying to accomplish:
Select everything between row 2 and the final row that contains data, across all columns, and hide it.

Purpose:
I routinely need to print just the first 2 rows, plus the final row of data on workbooks that vary in size.

Example of raw data:
1
2
3
4
5
6

Example of final outcome:
1
2
6


And it is worth noting that the number of columns and rows will vary greatly and I need to be able to execute this on multiple workbooks on-the-fly.

Thanks for the help!

 

[Joe4]

Is there one column that is always populated that we can use to determine where the data ends?
That is, for every row with data, is column A (or some other column) always populated?

If so, then you can use code like this:

Sub MyHideRowsMacro()

    Dim lr As Long
    
'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   If last row is after row 3, then hide rows
    If lr > 3 Then
        Rows("3:" & lr - 1).EntireRow.Hidden = True
    End If

End Sub

 

[kernelku]

Perfection. Easy to understand, clean.

Thanks again. Something so simple can really make the day-to-day feel less laborious.

 

[Joe4]

You are welcome!
Glad I was able to help.