multiple books with multiple sheets into one

[goldcat]

I am trying to track sales metrics over monthly, quarterly and yearly periods.
I have put together a workbook that contains 32 sheets 1 for each day and a total page for printing.

What I would like to know is there a way to combine all the monthly books into a quarterly and then the quarterly into a yearly

Thank you in advance for any direction

 

[pmich]

@
goldcat
Hope you want something like this:

Private Sub cmdCopydatafromWkBk1toWkbk2_Click()
 Dim SrcWkBk As Workbook
 Dim DestWkBk As Workbook
 Dim SrcFylsPath As String
 Dim DestFylsPath As String
 Dim SrcWBkName As String
 Dim DestWBkName As String
 SrcFylsPath = "D:\"
 SrcWBkName = "SrcData.xlsx"
 DestFylsPath = "D:\"
 DestWBkName = "DestData.xlsx"
 Workbooks.Open SrcFylsPath & SrcWBkName
 Workbooks.Open DestFylsPath & DestWBkName
 Set SrcWkBk = Workbooks(SrcWBkName)
 Set DestWkBk = Workbooks(DestWBkName)
 Dim rng As Range, FiltRng As Range
 Dim wsSrc As Worksheet, wsDest As Worksheet
 Dim SrcLastRow As Long, DestLastRow As Long
 Set wsSrc = SrcWkBk.Worksheets("SalesJan")
 Set wsDest = DestWkBk.Worksheets("QlySalesData")
  SrcLastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row
  Set rng = wsSrc.Range("A2:Q" & SrcLastRow)
  DestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
    rng.Copy wsDest.Cells(DestLastRow, "A")
 DestWkBk.Close SaveChanges:=True
End Sub

I will suggest you (and I hope that the experts who reply in Excel Forums will also suggest) that you should spend some time in searching for excel tutorials based on your needs.
That will increase your Excel expertise.
Simply if you need a code for your present need, and if you get it, your problem may be solved, but you will still be in need of more suggestions from experts.
Normally, what you have achieved so far should be posted, which I see a common practice in the Excel Forums that I look into.

 

[goldcat]

thank you for assistance and pep talk