在复制和粘贴时跳过一列的代码

Question

完整的VBA新手，之前已经有其他人回答了这个问题，这很救生！他们为我提供了以下代码，以便我可以复制，粘贴和转置到Excel工作簿的下一行。

我现在在目标工作簿的目标单元格之间有空白列，用于注释有关所述粘贴数据的信息。我还需要复制，粘贴和转置所说的评论。

s / s标头看起来像这样：

数据注释数据注释数据注释

依此类推。

我尝试了许多代码，但似乎总是会出错，最近一次是Selection.Offset(, 2).Select, and End(xlUp).Offset(1, (x - 2) * 2)。

下面的当前代码非常有效，只是无法跳过列。

Dim wsDest As Worksheet
Set wsDest = Workbooks("TL CSA Master v0.2.xlsx").Worksheets("Master")

Dim wsSrc As Worksheet
Set wsSrc = Workbooks("CSA V0.4.xltm").Worksheets("CSA - TL")

Dim NextFreeRow As Long
NextFreeRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Row + 1 'find next free row in Column A

wsSrc.Range("B2:B5").SpecialCells(xlCellTypeVisible).Copy
wsDest.Cells(NextFreeRow, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

wsSrc.Range("G9:G28").SpecialCells(xlCellTypeVisible).Copy
wsDest.Cells(NextFreeRow, "E").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

预先感谢，我知道这对你们大多数人来说是如此简单！我只是想尽一切办法！