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