Compare column number of a cell with the last cell column number in a loop

Originally Posted by Marc L

Sub BigCSVExportUTF8()
    Dim Rg As Range

    Filename = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    If Filename = False Then Exit Sub
    
    Set Rg = [A1].CurrentRegion

    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
           .Type = 2
        .Open
        .WriteText Join(Application.Index(Rg.Rows("1:2").Value, 1), ","), 1

        For R& = 2 To Rg.Rows.Count
            .WriteText Join(Application.Index(Rg.Rows(R - 1 & ":" & R).Value, 2), ","), 1
        Next

        .SaveToFile Filename, 2
        .Close
    End With

    End
End Sub

Absolutely flawless execution! Thanks a ton dude! This has literally saved my ***. Total support \m/