Move cells adjacent to each other (delete blanks)

I have a massive data file that has about 100k rows and I go out to column "KS". I have random blanks in between my data and I need to move all the data so it is adjacent to each other. The data on row "1" needs to stay on row "1" and if its on row "2" it needs to stay on row "2". I just need to delete the blanks between the cells. Thank you for your help.

Thank you for your help. Sorry I'm not sure is this a macro or vba and how do I get this to work exactly.

No matter what I try I get a compile error: Invalid outside procedure

Sorry I am a complete novice when it comes to coding

This is what JieJenn means (see attached)

Thank you! You are a lifesaver.

@JieJenn
Thank you! You are a lifesaver.

@bbarth
Glad you got it working.

Good luck

Sorry to bug you about this again. However, the code worked when I ran it on a small test group, but when I put it into my massive data set 100k rows columns to KS it just sits there. I thought it would take awhile because of the massive amounts of data so I set my computer to not go to sleep or hibernate or anything and left it over night thinking it would be done this morning. However, when I checked on it this morning it is still in the same predicament. Is it normal to take so long? Or did I do something wrong? Is it because I have data in columns "A-E" and then column "F" is where I need the data to start moving over? Any ideas? Thanks for your help.

I had changed the code to UsedRange.
Maybe change it to Cells as in JieJenn's code in post #6.