> 上書き確認のダイアログを出さずに
SaveAs を呼び出す直前に、DisplayAlerts プロパティを False にしておけば OK です。
SaveAs の実行後、DisplayAlerts プロパティの値を元に戻すのを忘れずに。

Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\sample.xls"
Application.DisplayAlerts = True


ところで…じょにーさんの質問文を見ると、句読点の打ち方が適切で無いように見えます。
http://www.yamanouchi-yri.com/yrihp/techwrt-2-5p/t-2-5abs11.htm

句点「。」が無いという点はともかくとして、
読点「、」が多すぎるかと思います。

ほとんどの文節ごとに打ってあるようですが、そこまで多いと読みにくくなります。ご注意あれ。