ワークシートをコピーしたい

質問

下記載のサンプルマクロは「ワークシートをコピーして、追加したワークブックにコピペする」マクロなんですが、これを「ワークシートをコピーして、追加したワークシートにコピペする」にできないでしょうか？
出来るのであれば、値と書式の他に関数もそのまま貼り付けたいので御教授お願いします。
ただマクロは削除してマクロ抜きのコピペが理想です。

宜しくお願い致します。

Sub サンプル()
Dim sc As Integer
sc = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
ThisWorkbook.Sheets("オリジナル").Cells.Copy 'コピー
Workbooks.Add 'ブック追加
Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlValues '値貼り付け
Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlFormats '書式貼り付け
Sheets("Sheet1").Name = "コピー"
Application.CutCopyMode = False
Application.SheetsInNewWorkbook = sc
ActiveWorkbook.Close
ThisWorkbook.Activate
End Sub

回答No.1

kybo

以下の様な感じかと思います。
不要になると思われる部分はコメントアウトしておきました。

Sub サンプル()
' Dim sc As Integer
' sc = Application.SheetsInNewWorkbook
' Application.SheetsInNewWorkbook = 1
ThisWorkbook.Sheets("オリジナル").Cells.Copy 'コピー
With Worksheets.Add 'シート追加
.Range("A1").PasteSpecial Paste:=xlValues '値貼り付け
.Range("A1").PasteSpecial Paste:=xlFormats '書式貼り付け
.Name = "コピー"
End With
Application.CutCopyMode = False
' Application.SheetsInNewWorkbook = sc
' ActiveWorkbook.Close
' ThisWorkbook.Activate
End Sub

お礼

丁寧に記入していただいて有り難うございます。

補足

kyboさんへ
動作は問題なく理想的です。
有難うございます。

ただ２つほど加えて教えて欲しいのですが、コピー基の印刷範囲の継承と追加したシートが最後尾に配置はできるようになれば完璧なのです。

恐縮ですが宜しくお願い致します。