Transfer data from one file to another file

Option Explicit

Sub kesh()
    Dim wb1 As Workbook, wb2 As Workbook
    Set wb1 = ThisWorkbook
    Set wb2 = Workbooks("before.xlsx").Sheets("eWayBill")
    Dim lr As Long, lrx As Long
    lr = wb1.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    lrx = wb2.Range("A" & Rows.Count).End(xlUp).Row + 1
    With wb1.Sheets("Sheet1")
        .Range("A4:B" & lr).Copy wb2.Range("D" & lrx)
        .Range("C4:D" & lr).Copy wb2.Range("AA" & lrx)
        .Range("E4:E" & lr).Copy wb2.Range("AJ" & lrx)
        .Range("F4:F" & lr).Copy wb2.Range("AQ" & lrx)
    End With
    Application.CutCopyMode = False

End Sub

When you get the Type Mismatch error, click on the debug button and then indicate which line of code is highlighted. Are you running this code on your sample workbook or some other workbook. If on another workbook, is it the exact same layout as the sample?

You have code in the before.xlsm file that is password protected that is interfering with my code and I cannot see why. It is causing an input box to open when I attempt to run my code. Can;t help until that file is unlocked and analyzed.

Can't do anything as that code is superceding any actions I try to engage. Good luck with finding a solution to this issue. I am sorry, but I cannot assist further.