Using Shift + End + Arrow to select range
Dave: I hope I changed the title in the correct way.
Parsnip: Here is all of my code:
ActiveCell.Select Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.EntireRow.Insert Selection.End(xlDown).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Destination:=Range("A1").Select
I am setting up the criteria section to execute the advance filter procedure.
Thank you for your help.