Transfer data from adjacent cells to non-adjacent cells

[snb]

or

Sub M_snb()
  [N12:N20] = [choose(row(1:9),H12,"",H13,"",H14,"",H15,"",H16)]
End Sub