I would suggest a real-time macro built into the Follow-ups worksheet. This macro has the added benefit that if you want to use X in column Q you can. As long as you put anything at all, it will work.
Option Explicit
Private Sub Worksheet_Activate()
Dim ws As Worksheet
Dim LR As Long
Application.ScreenUpdating = False
'Clear existing data
Range("A4:A" & Rows.Count).Clear
'Collect current followup data from other sheets
For Each ws In Worksheets
If ws.Name <> "Totals" And ws.Name <> Me.Name Then
With ws.Rows(3)
.AutoFilter
.AutoFilter Field:=17, Criteria1:="<>" 'show all rows non-blank in col Q
LR = ws.Range("Q" & Rows.Count).End(xlUp).Row
If LR > 3 Then _
ws.Range("A4:N" & LR).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
ws.AutoFilterMode = False
End If
Next ws
Columns.AutoFit
Application.ScreenUpdating = True
Beep 'sound to remind you the data has just been updated
End Sub
Bookmarks