Moving numbers of two columns to achieve desired correlation

We have numbers in columns A1 to An and B1 to Bn. What code(VB) can be written to put together these numbers so that their correlation be within (a, b)? For example, in screenshots I've attached, there are numbers in A1 to A10 and B1 to B10 that their correlation is 0.58, But we want correlation of these numbers be in (0.3.0.80).

enter image description here