在VBA中剪切并粘贴for循环

Question

I am trying to cut and paste values within a for loop from one list to another. I have the range all set up but for some reason the paste keeps failing and I'm not sure why. Here's what I've tried so far:

If WrdArray1(0) = WrdArray2(0) Then
ActiveCell.Cut
With ActiveSheet
Set rng2 = .Range("C" & position)
rng2.PasteSpecial
End With

I am rather new to vba so any help would be greatly appreciated.

Answer 1

Just use ActiveCell.Cut Destination:=ActiveSheet.Range("C" & position) . That does all in one.