Macro to copy existing sheet to end

S

Steve

I am creating a macro to make several copies of a particular worksheet and
move each succeeding one to the end (a choice when doing it manually).
However the macro recorder shows this >
Sheets("1").Copy After:=Sheets(8)
How can I generically make the "After:=Sheets(8)" into "After:=End"?
 
J

JLGWhiz

Just in case there are chart or template sheets:

Sheets(1).Copy After:=Sheets(Sheets.Count)
 
Top