macro to copy non blank data from 3 columns to the next 3 columns

[alwinaz]

Hi there

I am looking for a macro to copy only non blank data from column A9:C10000 to column D9:f10000 in the sheet called "Diary". Thus column D whould display the non blank data from column A, E whould display the non blank data from column B and F whould display the non blank data from column C. Bearing in mind that all though cells seems blank, it contains a formula that output "" if the conditions is not met.

I can get the same result with the index formula, however it takes forever to calculate. I have attached my file for easy reference.