你没有明白我的意思，我是希望：A1复制到G1，A2复制到H1，A3复制到I1...

明白了，你的需求是要按顺序逐个复制A列的单元格值，每次移动到G列之后再跳到下一个连续的空列。对于Excel VBA，我们可以使用`Find`函数来查找空列的位置。以下是相应的VBA代码示例：

Sub CopyToSequentialColumns()
    Dim source As Range, destination As Range
    Dim nextFreeColumn As Long
    
    Set source = Range("A1") ' 起始源区域
    Set destination = Range("G1") ' 初始目标位置

    Do While Not source Is Nothing
        destination.Value = source.Value
        nextFreeColumn = destination.Column + 1 ' 找到下一个空列
        Set destination = destination.Offset(0, nextFreeColumn) ' 移动到下一个空列
        Set source = source.Offset(1, 0) ' 源区域向下移动一行
    Loop
    
    MsgBox "数据已复制完成。"
End Sub

这段代码会持续将A列的内容依次复制到G、H、I等列，直到所有数据复制完毕。