Deleting multiple cells

[Exphys]

I've found the following code on a website however I need it to delete the cells with x's in from columns Z through AI. The cells should be deleted and shifted up leaving a block of cells with numbers in the top rows.
I've attached the spreadsheet in question, data is in Z5:AI317 in this sheet and Z5:AK317 in another.

The code below works for one column, z, but I can't figure out how to modify it to include more columns. The line that I've been playing with is

With .Cells(Lrow, "z")

I've attempted to replace it with range or declare the range as a variable but then I get errors in other parts of the code. The full code is below.

Thanks for you help.

Please Login or Register  to view this content.

[mike7952]

Try this

Please Login or Register  to view this content.

[Exphys]

Thankyou that's perfect.