for each cell in range, run randomly through number 1 to 20 to find best outcome

I have not found any similar question like this so far. As I am new to VBA, I wasn't able to put anything real together. This is why I'm posting this here.

I have a dynamic range - Salesrng = Range(Cells(10, 6), Cells(10, Columns.Count).End(xlToLeft)) Now, for each cell in the range exactly one row below the Salesrng, I want the numbers 1 to 20 to run randomly through all cells in order to find the maximum outcome. This outcome is on a different sheet.

I hope somebody can help me because it feels like, this is way too complicated for my vba skills.