Sumif Data Array

I've been trying to get to grips with using 2D arrays to hold data from external sheets rather than having to either copy data to my sheet or having multiple sheets open at once.

However I don't seem to be able to perform a sumif on a column in that array.

My Data is 22033 row by 37 columns, so trying to run through with a standard loop is very slow.

Is there a way to sumif the data once it is in an array and output that to a specific cell.

My existing code for the loop is this.

Set Drop = sumsht.Cells(9, 3)
lastrw = sumsht.Range("B9").End(xlDown).Row
For Each ref In sumsht.Range("B9:B" & lastrw)
Drop.Value = WorksheetFunction.VLookup(ref, linsht.Range("A:B"), 2, 0)
Drop.Offset(0, 1).Value = WorksheetFunction.VLookup(ref, linsht.Range("A:H"), 8, 0)
Drop.Offset(0, 2).Value = WorksheetFunction.VLookup(ref, linsht.Range("A:O"), 15, 0)
Drop.Offset(0, 3).Value = WorksheetFunction.SumIf(linsht.Range("A:A"), ref, linsht.Range("AC:AC"))
'Leave Discount Col blank
Drop.Offset(0, 5).Value = WorksheetFunction.SumIf(linsht.Range("A:A"), ref, linsht.Range("P:P"))
Drop.Offset(0, 6).Value = WorksheetFunction.SumIf(linsht.Range("A:A"), ref, linsht.Range("U:U"))
Drop.Offset(0, 7).Value = WorksheetFunction.Sum(sumsht.Range(Cells(ref.Row, 6), Cells(ref.Row, 9)))
Drop.Offset(0, 8).Value = WorksheetFunction.VLookup(ref, linsht.Range("A:AJ"), 36, 0)
Set Drop = Drop.Offset(1, 0)
Next ref

This is taking almost a minute to run which, while not terrible isn't great.

I have my data stored in an array like so

linarray = linsht.UsedRange.Value
ar = UBound(linarray, 1)
ac = UBound(linarray, 2)


How would I perform the same Sumifs and Lookups against the Array?

Thanks

Dan