Macro que guarde un archivo de Excel a una carpeta creada en el escritorio

Es la misma espuesta anterior, cuando solicitabas guardar en mis documentos, solo debes cambiar "my documents" por "desktop".

Corrección, me olvide una variable:

'declaro la variable escritorio

Dim escritorio As String

'Pongo el nombre en una variable

Nombre =" Reporte.xlsx"

'indico que directorio es mi carpeta de escritorio y dentro le agrego la carpeta "datos"
    Directorio = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\datos\"

'grabo el archivo
    ActiveWorkbook.SaveAs Filename:=Directorio & Nombre