Sub TransferDetailedEstimate()
Clave = "test"
If MsgBox("This command will owerwrite everything in this Sheet. Do you really want to transfer?", vbYesNo + vbQuestion) = vbYes Then
Application.ScreenUpdating = False
Sheets("Detailed Estimate").Select
Range("D4:D2000").Select
Selection.Copy
Sheets("Detailed Forecast").Select
ActiveSheet.Unprotect Clave
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Detailed Estimate").Select
Range("L4:L2000").Select
Selection.Copy
Sheets("Detailed Forecast").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A4").Select
ActiveSheet.Protect Clave
Sheets("Detailed Estimate").Select
Range("A4").Select
ActiveSheet.Protect Clave
Application.ScreenUpdating = True
Sheets("Detailed Forecast").Select
Else
Exit Sub
End If
End Sub