Delete and shift cells left - need a faster code

Hello! I want to delete all empty cells in a row, and if that cell is empty I want to shift the row left.
This is what I have so far:

Please Login or Register  to view this content.

Problem is that this process takes an incredible amount of time.
I am wondering if anyone can help me change the code so that it runs better and faster?

/Dry

Maybe:

Please Login or Register  to view this content.

Worked like a charm, thank you!

You're welcome. Glad to help out and thanks for the feedback.