この謎連載で一番短いソースなのに一番活用しているVBAです。
Sub CopyActiveSheet()
Dim ActiveWorkSheetws As Worksheet
' 選択（作業）中のシートを変数に入れる
Set ActiveWorkSheetws = ActiveSheet
' 選択（作業）中のシートのコピーを右端に作成
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
End Sub
単純処理なので5行しか有りません。
もちろんショートカットで一発コピーです。
