使用Excel VBA循环将数据从一张纸复制到另一张纸（在同一工作簿中）

Question

我正在尝试将数据从一张纸（SheetA）复制到另一张纸（sheetB）。我已经建立了一个循环，可以复制数据并将其成功粘贴。但是，它将数据粘贴到SheetA上保存的任何行中的SheetB中（即，如果数据来自第12行，则将其粘贴到第12行中-我希望将其粘贴到下一个可用行中，以避免出现任何空白行） ）。

当前代码看起来像这样-我已经尝试为目的地添加计数变量（w），但您可能会说这是无效的（相当业余）：

w = 1
x = 1

RawData.Activate
    Do While Cells(x, 4).Value <> ""
            If Cells(x, 4).Value = "Bracknell" Then
            RawData.Range(Cells(x, 1), Cells(x, 10)).Copy Destination:=Bracknell.Range("A" & w)
        End If

x = x + 1
w = w + 1

Loop

预先加油！