Not much details provided.
The following is assumed:
- Your "dashboard" sheet is called Master. The other sheet names don't matter nor the amount of them.
- The dates are located in column A.
The code below will go through all your sheets' column A and will look for dates equal to today or 4 days in the future and paste them in the first available row on the Master sheet.
Here is the code:
Dim ws As Worksheet, lRow As Integer
For Each ws In Worksheets
If ws.Name <> "Master" Then
lRow = ws.Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("A2:A" & lRow)
If cell.Value >= Date And cell.Value <= Date + 4 Then
cell.EntireRow.Copy Sheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)