This will do what you want. Just edit the parameters with ?
/Tony

Sub Filter_On()
Dim rnCell, rnOmrade As Range

Set rnOmrade = Worksheets("Sheet?").Range(Cells(StartRow?, StartColumn?), Cells(LastRow?, LastColumn?).End(xlUp))

For Each rnCell In rnOmrade
If rnCell.Value = "" Then
rnCell.Rows("1:1").EntireRow.Hidden = True
End If
Next rnCell

End Sub