Insert a blank row and calculate autosum

Dear All,

I have a set where there are multiple rows on same date ( ascending order). The data set looks like following:

Date Variable 1 Variable 2 Variable 3

1/01/2014 (M-D-Y)
1/01/2014
1/01/2014

Insert a new row over here and calculate auto sum from 4 Column (D) onwards for all the data for 1/01/2014

1/02/2014
1/02/2014
1/02/2014

Insert a new row over here and calculate auto sum from 4 Column (D) onwards for all the data for 1/02/2014

As i have 365 days in a year and i have to insert a blank row for every date then calculate the auto sum for all the dates. Please suggest me how to write a macro for the problem.

I will be grateful to you if you can help me out.

With sincere regards,
Upananda

Hi

Thanks and grateful to both of you for your solution. I will prefer ABB3 solution. If i want to copy the sum for all these dates to a new sheet with respective dates, how will i do that?

With sincere regards,
Upananda

Hi AB33,

I am grateful for your help. I think pivot table will be the most appropriate option. May i know any link to learn more about pivot table. Or the steps to have a pivot table the way you have done over here.

With sincere regards,
Upananda