Me hace falta una macro que genere una copia en CSVMSDOS SIGUIENTE?

Tengo que analizar series históricas de precios y cuento con una herramienta que absorbe esos datos si esta en formato CSVMSDOS...

Lo que quiero que haga la macro es.

1- Que genere una copia en CSVMSDOS, de mi archivo de trabajo, pero solo de las columnas Range ("a:d")

2-que el nombre del Archivo sea "    nombre = Year(Date) &; "_" &; Month(Date) &; "_" &; Hour(Time) &; "_" &; Minute(Time) &; " Cotizaciones "

3-Que lo guarde en Z:\comun\6-cotizaciones. 

Lo he intentado y consigo gran parte, pero seguro estoy haciendo algo mal.

Muchas gracias

Intentos fallidos
1)
Sub CSV()
'EZEQUIELMOURE
mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a:g").Copy
Workbooks(otro).Activate
Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
nombre = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "  " & Hour(Time) & "_" & Minute(Time) & "  " & "CSVCOTIZACIONES"
ActiveWorkbook.SaveAs nombre, FileFormat:=xlCSVMSDOS
ActiveWorkbook.Close False
End Sub
2)
Sub guardarcsv()
Dim NombreLibro As String
NombreLibro = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "  " & Hour(Time) & "_" & Minute(Time) & "  " & "CSVCOTIZACIONES"
ChDir "Z:\COMUN\6-COTIZACIONES"
ActiveWorkbook.SaveAs Filename:=NombreLibro & ".csv", FileFormat:=xlCSV, CreateBackup:=True
End Sub
3)
Sub EZEcsv()
Dim NombreLibro As String
NombreLibro = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "  " & Hour(Time) & "_" & Minute(Time) & "  " & "CSVCOTIZACIONES"
ChDir "Z:\COMUN\6-COTIZACIONES"
ActiveWorkbook.SaveAs Filename:=NombreLibro & ".csv", FileFormat:=xlCSVMSDOS, CreateBackup:=True
End Sub