Unikateliste mit Advanced Filter über mehrere Feld

Private Sub UnikatlisteErstellen()
Dim rngB1 As Range
Dim rngB2 As Range
Dim rngB3 As Range
Dim rngB4 As Range
Dim rngB5 As Range
Dim rngBereich As Range
Dim iZeileMax As Integer
tbl_Verbrauchertyp.Range("A:K").ClearContents
iZeileMax = tbl_Verbraucher.Cells(tbl_Verbraucher.Rows.Count, 7).End(xlUp).Row
'Bereich festlegen
With tbl_Verbraucher
Set rngB1 = .Range("A1:B" & iZeileMax)
Set rngB2 = .Range("C1:D" & iZeileMax)
Set rngB3 = .Range("E1:E" & iZeileMax)
Set rngB4 = .Range("K1:K" & iZeileMax)
Set rngB5 = .Range("O1:O" & iZeileMax)
Set rngBereich = Union(rngB1, rngB2, rngB3, rngB4, rngB5)
End With
With tbl_Verbrauchertyp
Range("A1").Select
rngBereich.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Verbraucher ").Range("A:E1"), CopyToRange:=Range( _
"Verbrauchertyp!Extract"), Unique:=True
End With
End Sub