无法复制到下一个空列

Question

一直在努力解决这个宏观问题，就像其他表格中的魅力一样

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。