Sub Macro1()
Dim ws As Worksheet
For x = 1 To 13
With Worksheets(x)
For i = .Range("A65535").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountBlank(.Range(.Cells(i, 1), .Cells(i, 5))) = 5 Then
.Range(.Cells(i, 1), .Cells(i, 5)).Delete Shift:=xlUp
End If
Next i
End With
Next x
End Sub