问如何在具有值/格式的新工作表中将列从一个工作表复制到另一个空白列

EN

我试图将8列(C18:J 167-一些合并的单元格)从工作表“赋值”复制到下一个空列(从工作表“生产力周刊”中的B4开始)。下面是我的密码。然而，我所面临的问题；

1. --它从行B27154
2. 开始粘贴它--它只在下次运行宏时粘贴值(而不是格式)
3. --它将复制的信息放在相同的单元格中，而不是下一列。(因此，第一次将粘贴在B:K栏中，下一次粘贴在L:s栏中)

子文案栏()

最后一行与工作表(“生产力周刊”)最后一行=单元格(Rows.Count，1).End(xlUp).Row LastColumn =单元格(1，Columns.Count).End(xlToLeft).Column End With Sheets(“赋值”).Range(“C18:j167”).Copy Sheets(“生产力周刊”).Range(“b”& LastColumn +1& lastrow + 1).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Paste：=xlPasteValues= True End Sub LastColumn

我肯定我错过了一件容易的事..。要么喝太多咖啡要么不够。