You are correct, you hard code the relationship in the placement of the entry.
Thecellvalue = ThisWorkbook.Worksheets(WSA).Range("G2").value
ThisWorkbook.Worksheets(WSB).Range("J9").value = ThecellValue
Or, you could build a multideminsional array like:
and loop through each element in the array, parsing the "to" and "from" cells from the array entries. Now just build a loop from 1 to how ever many numbers of entries there are, and loop it!