ワークシートを上書き保存したい

質問

Excel2003でマクロ初心者です。
以下のコードでシートを上書き保存したいのですが
次々と複写され、上書きされません。どうコードをかえたらよろしいでしょうか。
Private Sub CommandButton10_Click()
Dim wb As Workbook

On Error Resume Next
'開いて作業中の場合。
Set wb = Workbooks("最新表.xls")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\表の保存箱\最新表.xls")
End If
Worksheets("確定").Copy after:=Workbooks("21年計算01.xls").Sheets("総括表")
'Workbooks("最新表.xls").Close
End Sub
最新表.xlsは文字通り、最新ですので常に上書きしたいのです。

回答No.1

n-jun · ベストアンサー

Worksheets("確定").Cells.Copy Workbooks("21年計算01.xls").Sheets("総括表").Range("A1")

セルをコピぺしてあげればどうかな？

お礼

ありがとうございます。思っている通りできました。

回答No.2

n-jun

＃１です。

貼付けるシート間違っていたかな？

古いシートを削除してから、質問のシートのコピーをしてもいいかも。