VBA code to delete the FILTERED range and moving the cell up (dont Delete entire row)

Dear all,

I am facing an problem in deleting the range.

I have Columns A:D. I have filtered Column D with a Value and deleting cell under Column C:D.

I want to delete the values under column C:D and move the cells up after deletion.

But when i delete this filtered range using VBA code Selection.Delete Shift:=xlUp, it deletes all the values under column A:D and then moves it up.

Is there any way to retain the values under A:B column and delete the values under C:D and move them up.?

Please note: Data is filtered and then deleted.

Thanks for any help.

Can you share your code with us?