Hi all, I would like to know the code to select and copy the displayed range in columns A:N after a filter is applied.
The filter is used in column A, and i have the code that selects the first cell in column A - But i don;t know how to select across to column N - and all the rows that are shown (this amount will be changeable from 0 to 100+).
I can't use the selection.end(xl to right) code as some of the cells maybe blank (so it won't highlight all columns from A to N)
Any help much appreciated
Here is the code i have already
ActiveSheet.Range("$A:$N").AutoFilter Field:=1, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Dim Rng As Range
With ActiveSheet.AutoFilter
Set Rng = .Range.Resize(.Range.Rows.Count - 1).Offset(1, 0)
Rng.SpecialCells(xlCellTypeVisible).Cells(1, 1).Select
End With
Selection.Copy
Bookmarks