Vlookup В VBA код между двумя листами не возвращает значений?

Question

У меня есть две таблицы, одна называется sheet1, а вторая - sheet2. то, что я хочу сделать, это взять значения из sheet1 и vlookup значения в sheet2, если значение существует в sheet2, вернуть 14 столбцов значения sheet2.

У меня есть для l oop, который проходит через все значения в sheet1, столбцы E и функция vlookup. но по какой-то причине vlookup не возвращает значение, даже если значения присутствуют в sheet2. вот мой код.

Set myRang = shGL.Range("A13").CurrentRegion    
For k = 1 To EndRowReport
        If shReport.Range("D" & k).Value = "Bank Transaction Account" Then
            On Error Resume Next
            shReport.Range("F" & r).Offset(1, 0).Value = Application.WorksheetFunction.VLookup(shReport.Range("E" & r + 1).Value, myRang, 14, False)
            totalAmount = totalAmount + shReport.Range("C" & r).Offset(1, 0).Value
            totalAmountAbs = totalAmountAbs + shReport.Range("D" & r).Offset(1, 0).Value
            r = r + 1
        End If
   Next k

любая помощь или предложение высоко ценится!