[Erel]

Thanks.
In the meantime you can edit the following code:

Sub CalcRowSize 
    y = 1
    shouldRemoveLastRow = False
    If Control(TableName,Table).RowCount = 1 Then
        shouldRemoveLastRow = True
        Control(TableName,Table).AddRow()
    End If

Instead of adding an empty row you should add a row that matches the filter.