Coma al final de un archivo csv Excel Vba

Como pañeros espero que estén teniendo un día espectacular, en estos momentos estoy realizando proceso de generar un archivo plano a partir de una información y tengo una parte la siguiente línea de código:

.Sheets(1).Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats, SkipBlanks:=True, Transpose:=False

La línea se integra bien me genera los separadores con comas y los decimales con puntos trabaja sin problemas, pero requiero que al final de cada dato debe finalizar con una coma.