Vba 如何在一个范围内循环并将信息复制到单元格中。将输出保存为csv

我试图创建一个循环，从列L复制值，并将其粘贴到“C2”中。没有固定的L范围，因此循环必须在空单元格处停止。之后，我希望它运行下面的现有代码。此代码基于查找函数将输出数据保存在“Sheet1”上，并将随着“C2”的更改而动态更改

Sub SaveAsCSV()
Dim strSourceSheet As String
Dim strFullname As String


strSourceSheet = "Sheet1"
strFullname = "\\H:\filepath\filepath1\"
myfilenamedate = Format(Range("C2"), "yyyyMMdd")
myfilenameindicator = "data"

ThisWorkbook.Sheets(strSourceSheet).Copy
ActiveWorkbook.SaveAs Filename:=strFullname & myfilenameindicator & myfilenamedate & ".csv", _
                      FileFormat:=xlCSV, _
                      CreateBackup:=True, _
                      local:=True
ActiveWorkbook.Close


End Sub