How i can have the data in quarters instead of month with Excel VBA Macro

Why are you doing this in VBA? It seems like what you want to do can be accomplished with a Pivot Table.

That's a big question. The short answer is that if you put the cursor in your source data (provided it is suitably formatted) and click Insert -> Pivot table, it will create a pivot table template. You can then drag the various column headers to one of 4 quadrants. The data gets summarized according to what you drag into which quadrant.

For example, if you have the dates as row headers (lower left quadrant) and a numeric value as the values (lower right quadrant), all the dates will be shown down the left margin, and a sum of the values for each date next to it. You can also do a count of data, average, standard deviation. maximum ...

I suggest you do a web search for a tutorial on pivot tables. They are fairly easy to set up, but like everything else in Excel, you can also get more complicated.

One of the features is that if you display a date as either a row header or a column header, you can group the date. You can show by year, by month, by year and month, by days (e.g. get weekly totals in 7 day increments) and by quarter.

Pivot tables sometimes refresh when the source data is refreshed or when you right click in the data and select refresh or when you click on refresh all. You can also make it refresh using VB code.

You can build charts directly from pivot tables, or in some cases overlay them with named dynamic ranges for charting.

If you can provide a sample workbook, and an explanation of where the data comes from and how you fill it in and a mock up of what you want it to look like, it would help us understand the requirement better and offer a solution.