Excel宏将数据粘贴到X列

我正在寻找一个宏粘贴一些数据到移动范围。我已经有一个单元格，告诉我下一个非空列的编号，这是我当前使用的代码：

Dim OpenFileName As String
Dim wb As Workbook

'Select and Open workbook
OpenFileName = Application.GetOpenFilename()
If OpenFileName = "False" Then Exit Sub
Set wb = Workbooks.Open(OpenFileName)

'Get data EXAMPLE
ThisWorkbook.Sheets("Teleselling 17").Range("I9:I289")*this should be dynamic, I want to paste data in a moving range*.Value = wb.Sheets("TELESELLING INBOUND").Range("L9:L289").Value

wb.Close SaveChanges:=False

MsgBox ("Done!")

---

使用新打开的工作簿/工作表/范围定义值传递的范围

with wb.workSheets("TELESELLING INBOUND").Range("L9:L289")
    ThisWorkbook.workSheets("Teleselling 17").Range("XFD9").end(xltoleft).offset(0, 1).resize(.rows.count, .columns.count) = .value
end with

---

你所说的“移动范围”是什么意思？每次我从Teleselling inbound sheet粘贴数据时，我都想在一个范围内进行粘贴，该范围在每次我用数据填充数据时都会移动移动到哪里？？？是否只想将其粘贴到列I中最后使用的单元格下方？还是要将其粘贴到新列中？（您的问题说明您已经找到了如何查找下一个非空列，但这似乎在代码中的任何地方都没有使用。）或者您只是想在源和目标区域中允许“移动”结束行吗？或者…？我想这是对“移动范围”最好的解释D（但我不知道给出下一个**非**空列编号的单元格在哪里起作用？）由于问题中除了模糊的间接引用外，它明显缺失，我推断这实际上是一个严密保守的秘密，我不想冒叛国的风险。