Hi,
so: PublicSub prcDeleteEmptyLines() Dim lngRow AsLong Application.ScreenUpdating = False With Worksheets("Tabelle1") For lngRow = .UsedRange.Row + _ .UsedRange.Rows.Count - 1 To 1 Step -1 If WorksheetFunction.CountBlank(.Rows(lngRow)) = _ .Columns.Count Then .Rows(lngRow).Delete Next EndWith Application.ScreenUpdating = True EndSub