Code loop through two tables checking and altering

I think just change this line so that it includes the row with the distribution amounts (you had B17):

Set rngDistr = Range("B16:K22")

The code now runs, although I haven't checked that it gives the right answer!

thanks a lot stephen thats some excellent coding

Thank you, my pleasure.

Hi Stephen R,

Ive just tried to put it into a much much larger sheet of data and im getting the match problem again! - Ive attached an example of the scaled up version

Ive tried formats of the numbers, double checking the matrix ranges but still no go!

Is there any limitation to the number of columns?

Thanks

Not sure, it falls over at the match line, although it works if you use the formulae in the worksheet. Not time now, perhaps somebody clever will have a bright idea.

nMinD = wf.Index(rngDistr, 1, 1 + wf.Match(nMin, rngDistance.Rows(r), 0))

Hi ive solved it, the numbers for the distances must be at least 1.
This has thrown up another problem now of double distribution! Ill post more if i cant fix it.
Thanks