如果满足条件，则复制和粘贴数据

Question

我是excel vba的新手。我需要将B3：D3中的数据复制到A6：C6中。该代码必须检查A6：C6中的数据。如果存在现有值，则必须将其复制到下面的单元格中，即A7：C7。

Sub CopyandPaste()

Dim lrow As Integer
Sheets("Sheet1").Range("B3:D3").Copy 'Cell to copy
lrow = 100 'End row
For i = 6 To 100 'Loop from row 6 to 100
If Cells(i, 1) = "" Then 'If cell is empty then paste new value
Sheets("Sheet1").Range(Cells(i, 1)).PasteSpecial xlPasteValues
End If
Next i
End Sub