See if this works. Select the cells to output and change the file name to suit your needs. Then run it. It will output your results with a "," at the end.
Private Sub Save_CSV()
Dim delim As String, TxtArray() As String
delim = ","
MyFile = "c:\temp\test.txt"
ReDim TxtArray(1 To Selection.Rows.Count)
For Each cell In Selection.Resize(Selection.Rows.Count, 1)
i = i + 1
For Each subcell In Intersect(cell.EntireRow, Selection)
TxtArray(i) = TxtArray(i) & subcell.Text & delim
Open MyFile For Output As #1
For i = 1 To UBound(TxtArray)
Print #1, TxtArray(i)
Msg = "File saved as:" & vbCrLf
Msg = Msg & MyFile
MsgBox Msg, vbOKOnly, "CSV File"
Glad to help.
You could put it in your personal.xls file or just keep it in that workbook and make sure you have that workbook open so you can use it. In other words, as long as the macro is in an active workbook or add-in you can use it. Personally, I keep frequently used macros in personal.xls.