Trouble with code

[Kell2Jam]

I think this code is incorrect, it seems to be pasting the the dates the wrong way around and i know that its something simple but i cant figure it out.

Workbooks.Open "P:\FETS Command\Business Services\STORES OFFICE\James - Work\#LineItemsReport\PurchaseOrders.csv"
Windows("PurchaseOrders.csv").Activate
Dim wsCopy As Worksheet
'Dim wsDest As Worksheet
'Dim lCopyLastRow As Long
'Dim lDestLastRow As Long
'Dim strPath As String

Set wsCopy = Workbooks("PurchaseOrders.csv").Worksheets("PurchaseOrders")
Set wsDest = Workbooks("LineItemsReportGraph.xlsm").Worksheets("Purchase Orders")

'1. Find last used row in the copy range based on data in column A
lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

'2. Find first blank row in the destination range based on data in column A
'Offset property moves down 1 row
lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

'3. Clear contents of existing data range
wsDest.Range("A1:K" & lDestLastRow).ClearContents

'4. Copy & Paste Data
wsCopy.Range("A1:K" & lCopyLastRow).Copy _
wsDest.Range("A1")


Workbooks("PurchaseOrders.csv").Close SaveChanges:=True

 

[Kell2Jam]

I get true

 

[MARK858]

See if what I put in the edit in the last post about additional settings is true. If it is then I am afraid that I am out of ideas without seeing the wsCopy workbook.
If you can upload a copy to a free file hosting site like www.box.com or www.dropbox.com, mark it for sharing and post the link it supplies in the thread.
Make sure that you amend any sensitive information before uploading.

 

[MARK858]

Sorry, can you also post your full code (in code tags) after making the changes that I stated in post #4 so that I can check it.