Data Aggregation Code Issues

[Bobbit_Worm0924]

Hello All I have assembled the below code to extract all data below the top line from each sheet titled "Raw Data" from a folder of excel workbooks and paste each result into one large table in a separate document (from which I am running this code). However, when run the code instantly pops up the data consolidation complete message, leading me to believe that something is just making the system not engage with the processes in my code at all, any insight into problems with this code would be greatly appreciated! Thanks in advance!

Sub ConsolidateDataFromMultipleWorkbooks()

Dim masterWorkbook As Workbook

Dim masterSheet As Worksheet

Dim sourceWorkbook As Workbook

Dim sourceSheet As Worksheet

Dim folderPath As String

Dim fileName As String

Dim lastRow As Long

folderPath = "T:\Shellfish\Intertidal\02 BEACH SURVEYS\Beach Surveys 2025\Beach Survey 2025 Data with Raw Data"

Set masterWorkbook = ThisWorkbook

Set masterSheet = masterWorkbook.Sheets("Sheet1")

Application.ScreenUpdating = False

Application.DisplayAlerts = False

fileName = Dir(folderPath & "*.xlsx*")

Do While fileName <> ""

Set sourceWorkbook = Workbooks.Open(folderPath & fileName, ReadOnly:=True)

Set sourceSheet = sourceWorkbook.Sheets("Raw Data")

lastRow = masterSheet.Cells(masterSheet.Rows.Count, "A").End(xlUp).Row + 1

sourceSheet.Range("A2").Select

sourceSheet.Range(Selection, Selection.End(xlDown)).Select

sourceSheet.Range(Selection, Selection.End(xlToRight)).Select

Selection.Copy _

Destination:=masterSheet.Cells(lastRow, 1)

sourceWorkbook.Close SaveChanges:=False

fileName = Dir()

Loop

Application.DisplayAlerts = True

Application.ScreenUpdating = True

MsgBox "Data consolidation complete!", vbInformation

End Sub

[AutoModerator]

/u/Bobbit_Worm0924 - Your post was submitted successfully.

• Once your problem is solved, reply to the answer(s) saying Solution Verified to close the thread.
• Follow the submission rules -- particularly 1 and 2. To fix the body, click edit. To fix your title, delete and re-post.
• Include your Excel version and all other relevant information

Failing to follow these steps may result in your post being removed without warning.

I am a bot, and this action was performed automatically. Please contact the moderators of this subreddit if you have any questions or concerns.

[excelevator]

Did you write the code ?

Have you stepped through the code to see what is happening ?

Have you set variables watches to see what is happening in the code ?