Запись данных из массива в файл *.csv

Sub Search()
Dim i As Integer
Dim r()
Dim Filename as String
Dim sh As Excel.Worksheet
Set sh = ActiveWorkbook.Worksheets(1)
 
Filename = "\\192.168.2.1\vba\за " & Right(sh.Cells(3, 1).text, 10) & ".csv"
 
Open Filename For Output As #1
    For i = 1 To UBound(r)
        If r(i, 1) <> "" Then
            Print #1, r(i, 1) & ";" & r(i, 2)
            Else
            Exit For
        End If
    Next
Close #1
 
MsgBox ("файл сохранен: " & Filename)
End Sub

Dim f As Boolean
Open Filename For Output As #1
    For i = 1 To UBound(r)
        If r(i, 1) <> "" Then
            If f Then Print #1, 'не первая строка
            Print #1, r(i, 1) & ";" & r(i, 2);
            f = True
            Else
            Exit For
        End If
    Next
Close #1

Print #1, vbNewLine & r(i, 1) & ";" & r(i, 2);