尝试从列复制并粘贴到列

Question

我正在努力实现以下目标：

1. 将第29栏第29栏复制至第34行第3栏第3期;香港维修BAU＆＃34;
2. 将特殊选项粘贴到＆＃34;示例宏工作表＆＃34;
3. 作为行A列第29列到第G行第30列是数据，因此每个月都会更改
4. 我需要VBA告诉excel，一旦点击按钮，它会自动找到要粘贴的下一个可用空列。

e.g。 may of may将第4列粘贴到第4行第3列。然后在6月份，它将复制到下一个可用的空列。例如。第4列到第G行第5列。

我不确定这是否可以实现。请原谅我，因为我对这些事情非常陌生。

Application.ScreenUpdating = False

Dim s1 As Excel.Worksheet
Dim s2 As Excel.Worksheet
Dim iLastCellS2 As Excel.Range
Dim iLastColumnS1 As Long

Set s1 = Sheets("HK Maintenance BAU")
Set s2 = Sheets("Sample Macro Sheet")

 'get last Column number of 2 in HK Maintance BAU Sheet'
iLastColumnS1 = s1.Cells("2", Columns.Count).End(xlToLeft).Column

'get last AVAILABLE empty Column to paste into'
Set iLastCellS2 = s2.Cells("2", Columns.Count).End(xlToLeft).Offset(1, 0)

'copy&paste into Sample Macro Sheet'

s1.Range("A30", s1.Cells(iLastColumnS1, "A")).Copy
iLastCellS2.PasteSpecial xlPasteValues

Debug.Print iLastCellS2.Address

Application.ScreenUpdating = True

非常感谢所有的帮助，但它仍然无效，我知道代码严重错误，尝试在互联网上找到一些解决方案，但它无法正常工作。