Vba Can'；t在下一个空列中复制

一直在努力解决这个宏，它在其他表单中工作得很有魅力

Sub Move_Data()

Dim source As Worksheet
Dim destination As Worksheet
Dim emptyColumn As Long

Set source = Sheets("KAMSS")
Set destination = Sheets("KA")

emptyColumn = destination.Cells(2, destination.Columns.Count).End(xlToLeft).Column
If emptyColumn > 1 Then
emptyColumn = emptyColumn + 1
End If

Sheets("KAMSS").Range("E5:E75").Copy

Sheets("KA").Cells(2, emptyColumn).PasteSpecial Paste:=xlPasteValues
Sheets("KA").Cells(2, emptyColumn).PasteSpecial Paste:=xlPasteFormats


End Sub

---

现在，这个宏只是覆盖了

KA

中第1列中的内容，我无法理解。我试着从头写一遍，从其他工作表中复制宏，并检查是否忘记将计算设置为True。

是否确定if条件？如果emptyColumn>0，请重试then@newguy非常确定，因为它在我的另一个工作簿中工作，一开始它工作，但由于某种原因它停止了移动。但尝试将其更改为>0，然后又计算了一个，但为什么？请使用debug.print emptyColumn检查程序在程序中各个点返回的内容。完成此操作后，出于某种原因，它将跳过添加>1的新列的部分。但同样，它与我以前使用的完全相同。如果不满足条件，它将跳过该部分。在if条件之前，emptyColumn的值是多少？