Just add

Formula: copy to clipboard
.Sheets(1).Range("B:B").NumberFormat = "mm/dd/yy"


immediately before the .SaveAs instruction