Intersect(Selection.SpecialCells(xlCellTypeVisible), Selection.CurrentRegion).Copy
Mohlo by to zafungovať. Inak pozerám do Tvojich predošlých dotazov a zisťujem, že sa nenamáhaš poskytnúť spätnú väzbu, pokiaľ Ti niekto poradí. Tak váham, či takýmto charakterom má zmysel nejako pomáhať..citovat