You can use the DIR() method to cycle through all the workbooks in a single folder and do the same copy/pastetoanotherwb process. An example of that is here:
You can use the FSO method to cycle through all the folders in a main folder, an example of that can be found here:

You can use this snippet of code to automate the process of picking the MAIN folder to start from:
Dim fPathMain as String

'Folder selection
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then fPathMain = .SelectedItems(1) & "\"
    End With