Change my vba code to save excel file directly to any users desktop not via c drive

Hi Guys,

I am a newbie here. I make macros via the record macros tool.

I made this macro, which will save 7 individual files from 1 excel sheet's data, but i need it to be saved at a folder i specified on a desktop. But the record macros will only take my desktop's path. I read alot over codes for how to fix this, but i am unable to find a way to use their codes without getting bunch of errors. Could someone take my code, and make the few changes that reflect that?

For some of you, its a matter of 2-3 mins, but i have been struggling at this trying to use the special folder path for hours.

Please help me out guys, this is kinda urgent for my college.

Sub Button4_Click()

End Sub
Sub macro1()
'
' macro1 Macro
'

'
    Columns("I:I").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("C1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:="Calpers"
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Users\Sahil\Desktop\cvc"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\calpers.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC Credit Partners Global Special Situation Holdings, LP"
    Range("A8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc new.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Range("C3").Select
    Windows("Macro Sheet.xlsm").Activate
    Range("C1").Select
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC European Credit Opportunities 8"
    Range("A13").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc 8.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
    Range("C1").Select
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC European Credit Opportunities A"
    Range("A20").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc a.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
    Range("C1").Select
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC European Credit Opportunities B"
    Range("A51").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc b.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
    Range("C1").Select
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC European Credit Opportunities C"
    Range("A69").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc c.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
    Range("C1").Select
    ActiveSheet.Range("$A$1:$N$98").AutoFilter Field:=3, Criteria1:= _
        "CVC European Credit Opportunities D"
    Range("A86").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A86:N98").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Sahil\Desktop\cvc\cvc d.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Windows("Macro Sheet.xlsm").Activate
End Sub