Removing blank lines

WDave1975 

Untested, you need to adjust the area / lines. Should actually work without a problem

Sub button1_click ()
Dim i As Long

'Customize sheet name
With Worksheets ("Sheet1")
     For i = 140 To 5 Step -1
         If WorksheetFunction.CountBlank (.Range ("J" & i & ": R" & i)) = 9 Then
             .Rows (i) .Delete
         End If
     Next i
End With
End Sub

if you don't want to delete the lines but just hide them?

.Rows(i).Hidden = True

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.