Delete range of selection and shift up

Hi,

Working with columns E:K, if any cell in that range is selected then the following formula will delete all cells from E:K on selected row and shift up.
So if G9 is selected then formula will delete E9:K9 and shift up, works fine for single row but I'm trying to get this to work if multiple rows are selected.
If G9:G11 is selected the delete E9:K11 and shift up.

Please Login or Register  to view this content.

I thought perhaps changing Selection.Row to Selection.Rows but that didn't work

Thanks

What about

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

Thanks for your reply mohadin

Your suggestion deletes and shifts up from selection and 5 columns not all of E:K as in OP
Anything before selected cell does not get deleted

Thanks, I think .Resize is the way forward but possibly change Selection.Offset to Selection.Column or something?

OP states if any cell is selected, I only used G9 as example

Working with columns E:K, if any cell in that range is selected then the following formula will delete all cells from E:K on selected row and shift up.

Ah
So may be

Please Login or Register  to view this content.

Other option

Please Login or Register  to view this content.

This is what I used first until I realised .EntireRow would delete data in columns A:D that is required hence needing this to work in range E:K

Originally Posted by mohadin

Other option

Please Login or Register  to view this content.

Getting error Subscript out of range on:
z(3) = "K"

That was still deleting data in columns A:D however I removed the .EntireRow and it seems to work as I need it to

Thank you

Right my mistake
Sorry
any way..