@Danny, die manier met VBA werkt wel zeer vertragend.
Hier een snelle maar is wel wat ingewikkelder.
Edit:
Hieronder wat simpeler. Vervang de code in mijn bijlage door onderstaand en dat zal hetzelfde doen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Cells(4, 1).CurrentRegion.Offset(2).ClearContents
With Sheets(1).Cells(1).CurrentRegion
.AutoFilter 6, Target
.Offset(1).Copy
Cells(4, 1).PasteSpecial xlPasteValues
.AutoFilter
End With
Application.Goto Cells(2, 1)
Application.EnableEvents = True
End If
End Sub