Sub Test()
Dim rngAB As Range, rngFilter As Range, rngTo As Range
Dim rngA As Range, c As Range
On Error Resume Next
With Sheets(1)
.Activate
Set rngAB = Application.InputBox(prompt:="AB selektieren", Type:=8)
If Err.Number = 424 Then Exit Sub
Set rngFilter = Application.InputBox(prompt:="Filter selektieren", Type:=8)
If Err.Number = 424 Then Exit Sub
On Error GoTo 0
Set rngFilter = rngFilter.SpecialCells(xlCellTypeVisible)
Debug.Print rngAB.Address, rngFilter.Address
Set rngTo = Union(rngAB, rngFilter)
For Each rngA In rngTo.Areas
With Sheets(2).Columns(1)
Set c = .Cells(.Cells.Count).End(xlUp)(2)
rngA.Copy c
End With
Next rngA
End With
End Sub