我必须在VBA中编写一个简单的循环

Question

我必须编写一个宏，该宏基于VBA_1工作表（https://imgur.com/a/2fAPmiR）中的数据，将完成VBA_2工作表（https://imgur.com/a/0Vmpt2t中相关的Purchase（NABYCIE）和Redemption（ODKUPIENIE）表）。我需要将整个行从VBA_1平板电脑传输到VBA_2中的表。您能帮我吗，因为我是VBA的初学者。谢谢

Sub PowerQuery()

Dim i As Single

For i = 1 To 2000

If Worksheets("VBA_1").Range("A" & 1 + i).Value = "Nabycie"
Then Worsheets("VBA_1").Range("A:D" & 1 + i).Copy
Sheets("VBA_2").Range("B:E" & 1 + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next i

End Sub