Sub Macro1()
Application.ScreenUpdating = False
Sheets("BDC").Select
Range("B13").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
Application.Dialogs(xlDialogSaveAs).Show
Sheets("BDC").Range("B13").Select