Hi
I need some help with the below Macro I found on one of these Forum. The Macro does everything I wanted it to do except that it does not copy the values in Column A of Sheet5 to Column A in Sheet6. The Macro should match Column B of Sheet5 with Coulmn A of Sheet3 and if it finds a match, copy the matching Row of Sheet5, starting at Column A to say, Column Z to Sheet6, starting at Column A.

I'm currently getting Column B thru Z of Sheet5 copied onto Sheet6, starting at Column A. I'm not sure why Coulmn A of Sheet5 does not get carried over to Sheet6

Can someone please help me with this. I'd appreciate it very much.

Thanks

Here is the Code:

Sub Moving()
Dim c As Range, d As Rangeand copy
Worksheets("Sheet5").Activate
For Each c In Range("B2:B601")
For Each d In Worksheets("Sheet3").Range("A2:A229")
If c = d Then
c.Resize(1, 70).Copy
Worksheets("Sheet6").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Exit For
End If
Next
Next
Application.CutCopyMode = False
Worksheets("Sheet6").Activate
Range("A2").Select
Worksheets("Sheet5").Activate
Range("A2").Select
End Sub