Array Help - Populating matching data from 1 to another

[JumboCactuar]

Hi,

Best to describe what im trying to figure out is (vlookup from 1 array to another)

Screenshot of Worksheet -

https://imgur.com/1HkxzDx

The yellow is what im trying to populate within array

https://imgur.com/ITXoCgm

Here is my code to build the 2 arrays, and the total is working

Sub ArrayTest()
Dim DataArray As Variant
Dim NewArray As Variant

DataArray = Range("K2:P228")

LR = Sheet6.Range("A10000").End(xlUp).Row

NewArray = Range("A2:G" & LR)

For i = 1 To UBound(NewArray, 1)

    'How to get B,C,D,E,F values from DataArray ?

    'Get Totals
    NewArray(i, 7) = NewArray(i, 2) + NewArray(i, 3) + NewArray(i, 4) + NewArray(i, 5) + NewArray(i, 6)

Next i

End Sub

appreciate any help

 

[JumboCactuar]

edit:
figured 1 way but maybe something that works faster?

NewArray(i, 2) = WorksheetFunction.VLookup(NewArray(i, 1), DataArray, 2, False)
NewArray(i, 3) = WorksheetFunction.VLookup(NewArray(i, 1), DataArray, 3, False)
NewArray(i, 4) = WorksheetFunction.VLookup(NewArray(i, 1), DataArray, 4, False)
NewArray(i, 5) = WorksheetFunction.VLookup(NewArray(i, 1), DataArray, 5, False)
NewArray(i, 6) = WorksheetFunction.VLookup(NewArray(i, 1), DataArray, 6, False)

 

[JumboCactuar]

NewArray(i, 2) = Application.VLookup(NewArray(i, 1), DataArray, 2, False)
If IsError(NewArray(i, 2)) then NewArray(i, 2) = 0

Application.VLookup instead so you can handle errors if not found