VBA code to copy columns from one WB to another in a specific order.

[thardin]

What is a more effective way to write this code?

I'm trying to copy and paste columns from one workbook to another in a certain order.
If you look at the code, When I run the code 1 section at a time it will work, but if I run it all together it doesn't work like I want.

What is a better way to achieve this?
Thanks.

 

[Fluff]

How about

Sub thardin()
   Dim Ary As Variant
   Dim Fname As String
   
   Fname = "Test1" & Format(Date - 1, "mmddyy")
   With Workbooks(Fname & ".xlsx").Sheets("UBTList").UsedRange
      Ary = Application.Index(.Value, .Worksheet.Evaluate("row(1:" & .Rows.Count & ")"), Array(4, 1, 2))
   End With
   Workbooks(Fname & ".csv").ActiveSheet.Range("A1").Resize(UBound(Ary), 3).Value = Ary
End Sub

In future please post you code, not an image of it. How to Post Your VBA Code

 

[thardin]

I think I am having an issue with this method of copying and pasting.
I noticed if a number in a cell starts with 0, when the data is pasted, it doesn't keep the zero.

How do I fix this?