Gem Luk csv-fil

Hej
Jeg har noget makro der danner og gemmer en csv-fil, men hvis jeg i min makro bruger
ActiveWorkbook.Save
ActiveWorkbook.Close
til slut så står mine data ikke længere i kolonner med som lange rækker af tekst, hvorfor?
i P1 står filnavnet, i Q1 står user

Sub tilCSV()
    Sheets("test").Select
    Sheets("test").Copy
    Call SletRaekker
    FileFormat = ".csv"
    Filename = Range("P1").Value
    ActiveWorkbook.SaveAs Filename:="C:\Users\" & [Q1] & "\Downloads\" & Filename & ".csv", _
        FileFormat:=xlCSVMSDOS, CreateBackup:=False
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
    Selection.Delete
    Range("P1:Q1").Select
    Selection.ClearContents
    Range("A1").Select
End Sub