Cambiar de xlsm a csv con macros

Hola nuevamente,

Estoy tratando de guardar unos archivos de extensión .xlsm a .csv, pero que al abrirlo nuevamente con excel quede la información en las celdas en las que inicialmente estaban. Por ejemplo, si mi archivo en xlsm en la celda A1 = agua, la A2= 3, B1=sol, B2= 45; entonces cuando lo guarde como .csv y lo abra nuevamente en excel encuentre la información en las mismas celdas.

Esta es la macro en la que estoy trabajando:

Sub grabar_xls_como_csv()
mio = ActiveWorkbook.Name ChDir "C:\\MACROS CSV\"

archi = Dir("*.xl*") Do While archi <> ""
Workbooks.Open archi
nombre = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path
nombrearch = ActiveWorkbook.Name
hoja = ActiveSheet.Name
ActiveWorkbook.SaveAs Filename:=nombre & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
archi = Dir() Loop
End Sub

Pero cuando se generan los archivos en .csv y los abro en excel, toda la información que esta en la fila queda en la primera celdas; es decir:

En la celda a1 queda: agua,3

y en la celda b2 queda: sol,45

Por favor corrígeme en lo que este haciendo mal.