hvad er der galt med denne kode

Private Sub CommandButton2_Click()
    msg = msg & \"ER DU SIKKER PÅ DU VIL SLETTE ?\"
svar = MsgBox(msg, vbOKCancel, \" HAR DU UDSKREVET ? \")
If svar = vbOK Then
End If
If svar = vbCancel Then
Exit Sub
End If
Dim Name As String
Dim Path As String
  If Range(\"AE50\").Value = \"\" Then
  Application.CutCopyMode = False
  Range(\"AF1:AU43\").Select
    Selection.Copy
ElseIf Range(\"AE93\").Value = \"\" Then
  Range(\"AF1:AU86\").Select
    Selection.Copy
ElseIf Range(\"AE136\").Value = \"\" Then
  Range(\"AF1:AU129\").Select
    Selection.Copy
ElseIf Range(\"AE179\").Value = \"\" Then
  Range(\"AF1:AU172\").Select
    Selection.Copy
ElseIf Range(\"AE216\").Value = \"\" Then
Range(\"AF1:AU215\").Select
    Selection.Copy
End If

    Path = \"C:\\WINDOWS\\Skrivebord\\Danlamin\\Reg 2000\\\"
    Name = Worksheets(\"Ark1\").Range(\"AO4\")

      MsgBox Path + Name + \".txt\"

    ActiveWorkbook.SaveAs Filename:= _
    Path + Name + \".txt\", FileFormat:=xlValues, _
    CreateBackup:=False
 

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
  End Sub
meningen er at arket skal gemmes som værdier og formater ikke formler