Delete consecutive rows and rows with only forward slash ////

[nevsky092315]

Greetings All, I am looking for some help, I want to delete below conditions in column A of the worksheet.

• If 3 consecutive rows are empty, need to delete those rows.
• If any row has only "/////" character, need to delete those rows.

Thanks in advance.

 

[nevsky092315]

Adding examples, please if someone help, that will be great. Need to delete below conditions in column A of a worksheet.

• If 3 consecutive rows are empty, need to delete those rows.
• If any row has only "/" character, without any other text, need to delete those rows.

Below is how it is present:

Below is the expected output.

Appreciate any help. THANK YOU.

 

[footoo]

Sub v()
Dim rng As Range, a As Range, c&
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeBlanks)
Application.ScreenUpdating = False
For Each a In rng.Areas
    If a.Count > 2 Then a.Resize(a.Count - a.Count Mod 3).EntireRow.Delete
Next
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(3).Row)
For c = rng.Count To 1 Step -1
    If rng(c) <> "" And Len(Replace(rng(c), "/", "")) = 0 Then rng(c).EntireRow.Delete
Next
End Sub