VBA仅将第一行复制到文本文件

问：

我希望将非空白列数据复制到文本文件中，虽然复制成功，但 vba 的粘贴部分仅将第一行复制到文本文件。以下是问题

1.虽然整个列的复制是成功的，但复制也有一些空白单元格（但有公式），excel也复制了这些单元格。我想忽略只有公式的单元格。
2.粘贴部分代码，仅粘贴复制列的第一行

Sub Addtotext() 'Adds stocks to stockslist for python
Dim strPath As String
Dim strName As String
Dim FSO As Object
Dim oFile As Object
Dim c As Range

With Range("J2", Range("J" & Rows.Count).End(xlUp)).Copy
End With

strName = "a.txt"
strPath = "C:\Volume\PythonProjects"

Set FSO = CreateObject("Scripting.FileSystemObject")


Set oFile = FSO.CreateTextFile(strPath & strName)

For Each c In Selection
    oFile.Write c.Value & " "
Next c

oFile.Close
End Sub