Hello pretty searched the web but could not find exactly accumulation. What's the question: I have a 30th workbooks and a single workbook. My point is this: in each of the 30 workbooks to put the macro (which will be the same) and the opening of the workbook I carry a specific cell in the general workbook, but the superposition (aggregation), ie if the first record was in cell C9, the next one is in C10 and so to the end. I'll attach an example that I did in a workbook, but the yellow cells relate to the transfer of information in the other (general) workbook.


I found this macro, but it replaces only within the cells, and the idea is to make an entry in the next row and do not know how to do it.

Code:
Sub Macro1()

Dim wbTo As Workbook, wbFrom As Workbook

Application.ScreenUpdating = False

'Change path below
Set wbFrom = ThisWorkbook
Set wbTo = Workbooks.Open("C:\Documents and Settings\Stephen\Desktop\goodbye.xlsx")

With wbTo
    .Sheets(1).Range("A1") = wbFrom.Sheets(1).Range("A3")
    .Sheets(1).Range("A2") = wbFrom.Sheets(1).Range("D6")
    .Sheets(1).Range("A3") = wbFrom.Sheets(1).Range("F9")
    .Sheets(1).Range("A4") = wbFrom.Sheets(1).Range("I6")
    .Sheets(1).Range("A5") = wbFrom.Sheets(1).Range("K10")
    .Sheets(1).Range("A6") = wbFrom.Sheets(1).Range("I18")
    .Close True
End With

Application.ScreenUpdating = True

End Sub
1Book1.xlsx