Hello,

I have a code that delete all empty rows of the Sheet1.
What I need is that delete only the rows of a range (B6:F15).

I attach my file (Elimina.xls)

Thanks in advance for your kind help.

regards,
Pedro
La Paz, BOLIVIA.


Here is the code if you do not want to download my file:

Sub EliminarFilasEnBlanco()
Dim strC As String, lngFila As Long
With Worksheets("Hoja1")
For lngFila = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(lngFila)) = 0 _
Then strC = strC & lngFila & ":" & lngFila & ","
Next lngFila
Application.ScreenUpdating = False
.Range(Left(strC, Len(strC) - 1)).Delete
Application.ScreenUpdating = True
End With
End Sub