SaveAs Directory Changing

I have a macro that I run that formats a csv file and I would like to output a xlsx file. I'm using this SaveAs

msgbox ThisWorkbook.Path
Dim relativePath As String
    relativePath = ThisWorkbook.Path & "\" & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, FileFormat:=51

My problem is when I use the above code, my msgbox shows: (which i think is due to pre-existing macros my company uses in excel.)

Users\...\appdata\roaming\microsoft\XLSTART

However, the files are actually saved in

C:\Users\...\Desktop\AGED REPORTS

How to I get the actual location of the csv file instead of the one that thisworkbook.path returns?