Select and delete range

[rhino4eva]

Sub adam()

Sheets("Tabulate").UsedRange
LRow = Range("A" & Rows.Count).End(xlUp).Row
Range("c2", "d" & LRow).SpecialCells(xlCellTypeBlanks).Select

End Sub

I use the above code to select blank cells in columns C & D
I am having trouble achieving the next step

I want to delete the row that the selected rows are found in
I cant use entirerow.delete as it interferes with a pivot table yo the right
I just want to delete and shift up the range column A to G that have blank cells all the way down to the LRow

 

[rhino4eva]

Range("A2:G" & lRow).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
I don't think I am doing the right thing

Column A is populated but if there is nothing in B C or D then I need to delete ABCDEFG
the CODE above only DELETES BCDEFG and leaves A intact

 

[Fluff]

I asked you to run a piece of code on it's own & report back.
Can you please do that?

 

[rhino4eva]

sorry I got a step ahead ....it does nothing as there no blanks in column A

Column A is populated
but if there is nothing in B C or D then I need to delete ABCDEFG

 

[Fluff]

Ok, I got you.
Could you have,say, B5 & D5 blank with C5 having a value.
Also is it ok to delete the entire row?

 

[rhino4eva]

sorry in the delay but :- yes i could have B5 & D5 blank with C5 having a value.
but I would like to restrict the row to A to G as there is a crucial PIVOT just to right

 

[Fluff]

Ok, how about

Sub rhino4eva()
   Dim Rng As Range
   
   For Each Rng In Range("B:D").SpecialCells(xlBlanks).Areas
      Intersect(Rng.EntireRow, Range("A:G")).Delete
   Next Rng
End Sub

 

[rhino4eva]

fantastic its just what I needed ... I didn't know you could limit delete.entirerow

 

[Fluff]

You're welcome & thanks for the feedback