Fill Area

[hilander]

Hello fellow coders,

Here is my second question. It builds upon my first post.

I use a external data to fill an area with data. There could be empty rows left over which need to be hidden every time the sheet is used or data is updated.
This is what I came up with. Using a loop and a row to start with.

Sub Hide_Blank_Rows(ByVal FR, byval LR)
'use a starting row number, hide row if cell is blank; exit sub if not
'decrement (move up) one row until data is found
    For i =  LR to FR
       If ISBLANK(Cells(i,3)) Then
       Rows(i).EntireRow.Hidden = True
       Else: End Sub
       i = i -1
   Next
End Sub

Thanks in advance,

Ed