Copy several columns and paste into specific column on another worksheet

Hi,


Need help on modify the VBA. I need to copy several column from sheet "FXSwap" when meet the criteria and paste value into specific column on sheets "=FEC=". Copy from sheet "FXSwap" column (A,B,AU,C) to "=FEC=" column (E,F,G,H). But my code cannot work, it will become A to E, B to F, C to G and AU to H. How should I change the VBA code to make column AU will copy to G and C will copy to H. Thanks

Here my VBA code:



Sub Macro8()

Sheets("FxSwap").Select

FinalRow = Range("A65536").End(xlUp).Row

For x = 2 To FinalRow

ThisValue = Range("I" & x).Value
If ThisValue = "20120924" Then
Range("A" & x & ",B" & x & ",AU" & x & ",C" & x).Copy
Sheets("=FEC=").Select
NextRow = Range("C65536").End(xlUp).Row + 1
Range("C" & NextRow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("FXSwap").Select
End If
Next

End Sub

Please attach a sample book with your code and desired result.

Here attached the desired result with my VBA code. Hope you can help me to solve the problem. Thank you very much

ICY,
I do not know for sure which criteria you are trying to compare with, but I guessed it is column "I" of FXSwap of sheet with Column "B" of =FEC=. This is a simple macro which copies data from one sheet to another based on the columns you had indicated on your sample.

Please Login or Register  to view this content.

I have also tried to work a code based on my assumption, but keep getting error on this line.

Please Login or Register  to view this content.

Perhaps, other memebers could spot my error.

Please Login or Register  to view this content.