lets say I have the following table.

gs = 7; ts = Table[{i, j}, {j, 1, gs}, {i, 1, gs}];ts//Grid

and I wish to swap parts of columns with another part of a column and the same with rows, then the following works if the spanning part is the same, i.e

m2 = ts; m2[[2 ;; 4, {2, 5}]] = m2[[2 ;; 4, {5, 2}]]; m2 // Grid

and

m2 = ts; m2[[{2, 5}, 2 ;; 4]] = m2[[{5, 2}, 2 ;; 4]]; m2 // Grid

However, changing the spanning part so they are different, causes undesired results, mainly duplicate entries start to appear. So my question is can anyone see a better solution so I can exchange different sections that aren't necessarily in the same row or column. For example I would like to be able to produce this.

ngc = {{{1, 1}, {2, 1}, {3, 1}, {4, 1}, {5, 1}, {6, 1}, {7, 1}}, {{1, 
     2}, {6, 4}, {3, 2}, {4, 2}, {5, 2}, {6, 2}, {7, 2}}, {{1, 3}, {6,
      5}, {3, 3}, {4, 3}, {5, 3}, {6, 3}, {7, 3}}, {{1, 4}, {6, 
     6}, {3, 4}, {4, 4}, {5, 4}, {2, 2}, {7, 4}}, {{1, 5}, {2, 5}, {3,
      5}, {4, 5}, {5, 5}, {2, 3}, {7, 5}}, {{1, 6}, {2, 6}, {3, 
     6}, {4, 6}, {5, 6}, {2, 4}, {7, 6}}, {{1, 7}, {2, 7}, {3, 7}, {4,
      7}, {5, 7}, {6, 7}, {7, 7}}} // Grid

or

ngr = {{{1, 1}, {2, 1}, {3, 1}, {4, 1}, {5, 1}, {6, 1}, {7, 1}}, {{1, 
     2}, {5, 6}, {6, 6}, {7, 6}, {5, 2}, {6, 2}, {7, 2}}, {{1, 3}, {2,
      3}, {3, 3}, {4, 3}, {5, 3}, {6, 3}, {7, 3}}, {{1, 4}, {2, 
     4}, {3, 4}, {4, 4}, {5, 4}, {6, 4}, {7, 4}}, {{1, 5}, {2, 5}, {3,
      5}, {4, 5}, {5, 5}, {6, 5}, {7, 5}}, {{1, 6}, {2, 6}, {3, 
     6}, {4, 6}, {2, 2}, {3, 2}, {4, 2}}, {{1, 7}, {2, 7}, {3, 7}, {4,
      7}, {5, 7}, {6, 7}, {7, 7}}} // Grid

Regards.