Bocs, most jöttem elő. Mi a megoldásod? Az enyém 2007-es verzióra:

Sub Rejt()
    Dim usor%, uoszlop%
    
    usor% = ActiveSheet.UsedRange.Rows.Count + 1
    uoszlop% = ActiveSheet.UsedRange.Columns.Count + 1
    
    Rows(usor%).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True

    Columns(uoszlop%).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
End Sub
.

és

Sub Felfed()
    Dim usor%, uoszlop$
    
    usor% = ActiveSheet.UsedRange.Rows.Count
    uoszlop$ = Chr(ActiveSheet.UsedRange.Columns.Count + 64)
    
    Rows(usor% & ":1048576").Select
    Selection.EntireRow.Hidden = False
    
    Columns(uoszlop$ & ":XFD").Select
    Selection.EntireColumn.Hidden = False
End Sub