Copy Data from multiple sheets to Main datasheet

Hi Bogleda,

Here's one to load your Table of Context:

Sub Bogleda(): Dim wt As Worksheet, ws As Worksheet, t As Long, r As Long, i As Long, D
Set wt = Sheets("Table of Context"): t = wt.Range("A" & Rows.Count).End(xlUp).row + 1
For Each ws In Worksheets
If ws.Name = wt.Name Or ws.Name = "CONVERSIONS" Or ws.Name = "DropDown Menus" Then GoTo GetNext
r = 4: Do Until ws.Range("A" & r) = "": r = r + 1: Loop
D = ws.Range(ws.Cells(4, 1), ws.Cells(r, 6)): r = r - 4
For i = 1 To r: D(i, 6) = ws.Name: Next i
wt.Range(wt.Cells(t, 1), wt.Cells(t + r, 6)) = D
t = t + r
GetNext: Next
End Sub

I'm thinking about the change event code now

Here's a start! F-S886 (Material Properties Database).xls

And - Welcome to the forum