Codeausschnitt:
Set rngkopbereich = Range(Cells(1, icol), Cells(irow, icol))
MsgBox rngkopbereich.Address
Set rngkopziel = Cells(1, ActiveSheet.UsedRange.Columns.Count + 1)
MsgBox rngkopziel.Address
rngkopbereich.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngkopziel, Unique:=True
Die beiden (zum Test) angezeigten msgboxen zeigen den die korrekten Adressen.
Trotzdem bricht Makro nach der letzten (hier angeführrten) Zeile ohne Meldung ab.
Ich finde keinen Fehler.
Gruß
Norbert