implement variable increment in VB Code

Kindly assist me to complete the below task using macros.

In the Given file, columns B,C,D are variables and the data has to be pasted side by side as the date changes. So i just need to copy the data present in col B,C,D and paste in the E,F,G columns. when i run the macro for second time the data at that instant has to be placed in the H,I,J column and so on. Also i need to fetch the date from another sheet as shown