Macro DtRNG as Range, Dt as Range, Multiple Criteria or dates

Attached is a sample file. Basically that part of the code copies the data in that cell and essentially find the bottom of the column of a row that still has data and pastes the data in that cell in column a in that row then copies the data in the rest of the column. I wrote it this way because each day these files change in size and I don't know which cell it will need to copy and paste down to so that each row of data has that following date. I suggested to a superior that we just contact the company who made these reports just for us and add a date column on the report however its not very high on their priority list.