VBA i Excel

hvi hele rækken er blank kan du bare trække rækken op så den er helt skjult! er det svar på dit spg. ellers må du lige forklare nærmere!

Function HideEmptyRow()
\'
\' Gemmer rækkerne fra RowStart til og med RowEnd, hvis de kun indeholder
\' tomme felter i rækkerne fra ColumnStart til ColumnEnd.
\'

Const ColumnStart = 1, ColumnEnd = 5
Const RowStart = 5, RowEnd = 10
   
    For RowCount = RowStart To RowEnd
        EmptyRow = True
        ColumnCount = ColumnStart - 1
        Do
            ColumnCount = ColumnCount + 1
            If Not IsEmpty(Range(Chr(64 + ColumnCount) & CStr(RowCount))) Then
                EmptyRow = False
                Exit Do
            End If
            Debug.Print Chr(64 + ColumnCount) & CStr(RowCount)
        Loop Until ColumnCount = ColumnEnd
        If EmptyRow = True Then
            Rows(CStr(RowCount) & \":\" & CStr(RowCount)).Select
            Selection.EntireRow.Hidden = True
        End If
    Next RowCount
End Function

Kommentarlinierne skal selvfølgelig hedde:

\' Gemmer rækkerne fra RowStart til og med RowEnd, hvis de kun indeholder
\' tomme felter i kolonnerne fra ColumnStart til ColumnEnd.