vba delete blank cells in range B:B,J:J,O:O so as not affect next column values cells.

Dear experts

I need your help on this..I have 3 set range of data , A:B ,H&J,N:O...where finds col B,J,O blank cells delete blank cell only not to delete another set of data range

Sub delcookies()
   Application.ScreenUpdating = 0
    On Error Resume Next
     With Sheets("cookies").Range("b2:b" & Range("a" & Rows.Count).End(xlUp).Row)
        .Offset(, 1).Columns.Resize(, 3).Clear
        .SpecialCells(4).EntireRow.Delete
        On Error GoTo 0
     End With
     Application.ScreenUpdating = 0
End Sub

find the attachment & find the sheet(expected result)..