Nebo ještě takto:
Sub EvidenceCSV()
Dim Data As String
Dim i As Integer
Const Hlavicka As String = "firma;ulice;cislo_domu;mesto;poznamka"
Data = Join(Application.Transpose(List1.Range("C6:C10").Value), ";")
i = FreeFile
Open ThisWorkbook.Path & "\evidence" & ".csv" For Output As #i
Print #i, Hlavicka
Print #i, Data;
Close #i