Изменить значения в ячейках диапазона vlookup

Question

Я пытаюсь найти диапазон с помощью vlookup, а затем изменяю его предыдущее значение путем деления на число. код хорош для нахождения диапазона, но он помещает значение 1-й ячейки во все ячейки диапазона, а затем делит.

Когда я использую TRY-1, это правильно помещает значение «2500» в диапазон. Но, когда я использую попытку 2 Он показывает только 1-е значение ячейки из диапазона, делит его на делитель и помещает во весь диапазон

включенное изображение

Sub SPLITS()
    Dim Lookup_1 As Variant, Lookup_2 As Variant

    Dim WsSplit As Worksheet

    Dim LR As Long, LRN As Long, x As Long
    Dim a As Range, b As Range


    Set WsSplit = ThisWorkbook.Worksheets("Student")



    LR = WsSplit.Range("A" & Rows.Count).End(xlUp).Row
    LRN = WsSplit.Range("C" & Rows.Count).End(xlUp).Row


    With WsSplit
        On Error Resume Next


        For x = 2 To LR
            Set a = Application.Index(WsSplit.Range("E14:E" & LRN), Application.Match(.Cells(x, 1).Value, WsSplit.Range("C14:C" & LRN), 0))
            Set b = Application.Index(WsSplit.Range("F14:F" & LRN), Application.Match(.Cells(x, 1).Value, WsSplit.Range("C14:C" & LRN), 0))



            '/Old Values
            Lookup_1 = Application.Index(WsSplit.Range((.Cells(x, a.Value)), .Cells(x, b.Value)).Value, _
                                         Application.Match(.Cells(x, 1).Value, WsSplit.Range("C14:C" & LRN), 0))



            '/Divider
            Lookup_2 = Application.Index(WsSplit.Range("G14:G" & LRN), Application.Match(.Cells(x, 1).Value, WsSplit.Range("C14:C" & LRN), 0))


            '/TRY-1
            '.Range((.Cells(x, a.Value)), .Cells(x, b.Value)).Value = 5000 / 2

            '/TRY-2
            .Range((.Cells(x, a.Value)), .Cells(x, b.Value)).Value = Lookup_1 / Lookup_2




        Next x

    End With
End Sub