Code needed to delete empty cells + adjacent cells

[RobinMO01]

I need code to delete empty cells in a column aling with the 3 cells to the left. Shift up to replace the deleted cells. Please help.

[oeldere]

Please read and adhere to these simple rules!

1. Use concise, accurate thread titles. Your post title should describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change the title of the thread, click EDIT on the original post, then click the Go Advanced button, then change the title. If two or more days have passed, the EDIT button will not appear, and you need to ask a moderator to change the title.

[RobinMO01]

Modified title.

[JOHN H. DAVIS]

This will delete empty cells in Column A. Not sure what you mean by align with three cells to the left? Perhaps you provide a sample showing your data before macro and then after (results), so we can understand your requirements.

Please Login or Register  to view this content.

[RobinMO01]

Thanks John. I do not have code yet. Specifically I want to select cells in a range ie f5:f12. Assume f8 and f10 are empty. I want to then delete d8:f8 and d10:f10.
All help will be greatly appreciated. Thanks.

[berlan]

Let's say the column is E, this should do the trick (to test it you can also change .Delete with .Select):

Please Login or Register  to view this content.

@JOHN H. DAVIS, seems to me there's no real need to use,

Please Login or Register  to view this content.

when

Please Login or Register  to view this content.

would do when dealing with Specialcells, as it will only be applied on blank cells in the usedrange? Or is there any other reason to use that?


Cheers,
berlan

[berlan]

Specifically I want to select cells in a range ie f5:f12. Assume f8 and f10 are empty. I want to then delete d8:f8 and d10:f10.

Try,

Please Login or Register  to view this content.

[RobinMO01]

Thanks I will try that

[JOHN H. DAVIS]

@ berlan - Ha Ha - A matter of habit I guess.