Sub MakeList()
Dim Sht as Worksheet
Dim Listing as Worksheet '"List" is a VBA Keyword. I won't use Keywords as Variable Names.
Set Listing = Sheets("List")
For each Sht in Sheets
If Not Sht Is Listing then
With Listing
.Cells(Rows.Count, "A").End(xlUp).Offset(1) = Date
.Cells(Rows.Count, "B").End(xlUp).Offset(1) = Sht.Cells(Rows.Count, "A").End(xlUp)
.Cells(Rows.Count, "C").End(xlUp).Offset(1) = Sht.Cells(Rows.Count, "C").End(xlUp)
.Cells(Rows.Count, "D").End(xlUp).Offset(1) = Sht.Cells(Rows.Count, "D").End(xlUp)
End With
End If
Next
End Sub
That only works for very simple examples like yours. It is not suitable for more complex systems. It not very easily expanded. If you are wanting to extract Data from several Worksheet Data Bases, there are much better systems