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