Copy and paste a column from one workbook to another an addin

Solution for Copy and paste a column from one workbook to another an addin
is Given Below:

I am trying to Copy and paste a column from one workbook to another
This Worked perfect before but doesn’t work when I turn my workbook into an addin(XLAM). Do you have to do something different? When i copy and paste values the columns comes back blank. Here is what tried.

Private Sub Processexpense()


   Dim oWB As Excel.Workbook
   Dim oXLAM As Excel.Workbook
   
   Dim oWS As Excel.Worksheet
    
   
   Set oWB = ActiveWorkbook
   
   Set oWS = ActiveSheet
   
   Set oXLAM = Workbooks("pay.xlam")
   
   Call test



End Sub


Sub test()
    Dim wbkSrc As Workbook 'Source workbook
    Dim wbkDest As Workbook ' Destination
    Dim rSrc As Range 'Source range
    Dim rDest As Range 'destination range

    Application.ScreenUpdating = False
    
    'set references to the workbooks
    Set wbkDest = ThisWorkbook
    Set wbkSrc = Application.Workbooks.Open("C:UsersJAppDataRoamingMicrosoftAddInsCategoriesGLAccounts.xlsx")
    
    ' Find last row in 'Category Name' column (9) in sheet report
    Dim lRow As Integer: lRow = wbkDest.Sheets("Report").Cells(Rows.Count, 9).End(xlUp).Row
    
    'set references to the ranges
    Set rDest = wbkDest.Worksheets("Report").Range("K2:K" & lRow)
    Set rSrc = wbkSrc.Worksheets("Sheet1").Range("A1").CurrentRegion
        
    'Lookup GL Account by Category Name
    rDest.FormulaR1C1 = Application.WorksheetFunction.VLookup(rDest.Offset(0, -2), rSrc, 2, 0)
    
    'copy to values
    rDest.Copy
    rDest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    'Close Source Workbook
    wbkSrc.Close False
    
    'Move
    Columns("K:K").Cut
    Columns("J:J").Insert Shift:=xlToRight
    
    'Name Column J
    Range("J1:J1").Value = Array("GL Account")
    Range("J1:J1").Font.Bold = True
    
    Application.ScreenUpdating = True
    
End Sub

Sub ProcessExp(control As IRibbonControl)
    Call Processexpense
End Sub