Why ADO?
Autofilter would be good enough.
Sub test()
Dim myField, myName
With Sheets("dashboard")
myField = Application.Match(.[e3], Sheets("records").Rows(1), 0)
myName = .[c3]
.Rows("8:" & Application.Max(8, .Cells.SpecialCells(11).Row)).Clear
End With
If IsError(myField) Then Exit Sub
Application.ScreenUpdating = False
With Sheets("records").Cells(1).CurrentRegion
.Parent.AutoFilterMode = False
.AutoFilter myField, myName
.Offset(1).Copy Sheets("dashboard").[a8]
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Bookmarks