Delete Cells based on Blank Cell

[Buns1976]

Hi Everyone,
I'm looking for a macro to delete data from cells D:E if cell A is blank in any given row up to 500. I can't use Delete Row as there is data that needs to stay from column G:R.

Does anyone have a solution?

Thanks,
B
B

 

[Peter_SSs]

Does this do what you want?

Sub Del_Rws()
  Range("A1:A" & Range("D" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Resize(, 5).Delete Shift:=xlUp
End Sub

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

Also consider XL2BB for providing sample data to make it easier for helpers by not having to manually type out sample data to test with.

 

[Buns1976]

Does this do what you want?

Sub Del_Rws()
  Range("A1:A" & Range("D" & Rows.Count).End(xlUp).Row).SpecialCells(xlBlanks).Resize(, 5).Delete Shift:=xlUp
End Sub

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

Also consider XL2BB for providing sample data to make it easier for helpers by not having to manually type out sample data to test with.

Yes Sir! It works very well. Thank you very much and I did update my version and platform. Having an issue with XL2BB though. Defender doesn't like the macros.

Thanks again!
B

 

[Peter_SSs]

Yes Sir! It works very well. Thank you very much

You're welcome. Thanks for the confirmation.

and I did update my version and platform.

Thank you!

Having an issue with XL2BB though. Defender doesn't like the macros.

What actually goes wrong?