Excel VBA Convert Table Column to Text (Csv) Only visible Cells with delimiter parameter

_Table_ColumnToText.bas

Function Table_ColumnToText(cCell As Range, sDelim As String)

' Get current table
Dim tblSelected As ListObject
Set tblSelected = cCell.ListObject
If tblSelected Is Nothing Then
    MsgBox "Select a Table!"
    TableColumnToText = "ERROR! No Table"
    Exit Function
End If

Set rng = tblSelected.DataBodyRange.Columns(cCell.Column - tblSelected.HeaderRowRange.Column + 1)
TableColumnToText = ConvertToText(rng.SpecialCells(xlCellTypeVisible), sDelim)
'TableColumnToText = WorksheetFunction.TextJoin(sDelim, True, rng.SpecialCells(xlCellTypeVisible))
End Function

ConvertToText.bas

Function ConvertToText(rng As Range, sDelim) As String
'Function ConvertToText(Optional ByVal rng As Range = Nothing, Optional ByVal sDelim As String = ",") As String
' TextJoin could be used instead if available WorksheetFunction.TextJoin(sDelim, True, rng)

'If rng Is Nothing Then
'    Set rng = Application.Selection
'    Set rng = Application.InputBox("Range :", "Convert to String with Delimiter", rng.Address, Type:=8)
'End If

ConvertToText = ""
For Each cl In rng
    If ConvertToText = "" Then
        ConvertToText = cl.Value
    Else
        ConvertToText = ConvertToText & sDelim & cl.Value
    End If
Next cl

End Function

CopyToClipboard.bas

Sub CopyToClipboard(Text As String)
' https://stackoverflow.com/a/25336423/2043349
    'VBA Macro using late binding to copy text to clipboard.
    'By Justin Kay, 8/15/2014
    Dim MSForms_DataObject As Object
    Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    MSForms_DataObject.SetText Text
    MSForms_DataObject.PutInClipboard
    Set MSForms_DataObject = Nothing
End Sub

Table_ColumnToText_Macro.bas

Sub Table_ColumnToText_Macro()
Dim sDelim As String
sDelim = Application.InputBox("Enter you delimiter:", "Column2Text: Delimiter", ",", , , , , 2)
sText = Table_ColumnToText(ActiveCell, sDelim)
CopyToClipboard (sText)
End Sub

See explanation https://tdalon.blogspot.com/2022/02/excel-table-column-textjoin-visible-only.html