Copy/Paste VBA script

Guram_Bregadze 

As far as I can tell, the problem occurs when the values in the 4th column have a different date format than your system date format. This will cause Excel to see the values as text instead of as dates. As a workaround, you can convert the text values to dates in the macro.

I replaced the loop in your macro with a single statement for efficiency.

Sub Copy()
    Dim wsh As Worksheet
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Dim lastrow As Long
    Dim verylastrow As Long

    Application.ScreenUpdating = False

    Set wsh = ThisWorkbook.Worksheets("sheet1")
    If MsgBox("Please make sure you upload Tableau report", vbOKCancel, "Just checking") = vbOK Then
        FileToOpen = Application.GetOpenFilename(FileFilter:="Comma Separated Values Files (*.csv),*.csv")
        If FileToOpen <> False Then
            Set OpenBook = Application.Workbooks.Open(FileToOpen)
            lastrow = wsh.Range("B9000").End(xlUp).Row + 1
            OpenBook.Sheets(1).Range("A2", Range("O2").End(xlDown)).Copy wsh.Range("A" & lastrow)
            OpenBook.Close SaveChanges:=False
        End If
    End If

    verylastrow = wsh.Range("B9000").End(xlUp).Row
    ' Convert text values to dates in column D.
    wsh.Range("D" & lastrow & ":D" & verylastrow).TextToColumns FieldInfo:=Array(1, xlMDYFormat)
    wsh.Range("P" & lastrow & ":P" & verylastrow).Value = Date

    Application.ScreenUpdating = True
    'Process_Data2()
End Sub