Sub Redesigner()
      Dim i As Long
      Dim hc As Integer, hr As Integer
      Dim ns As Worksheet
         
      hr = InputBox("Сколько строк с подписями данных сверху")
      hc = InputBox("Сколько столбцов с подписями данных слева?")
      i = 1
      Set inpdata = Selection
      Set realdata = Range(inpdata.Cells(hr + 1, hc + 1), inpdata.Cells(Selection.Rows.Count, Selection.Columns.Count))
      Set ns = Worksheets.Add
         
      For Each cell In realdata
          For c = 1 To hc
              ns.Cells(i, c) = inpdata.Cells(cell.Row, c)
          Next c
          For r = 1 To hr
              ns.Cells(i, c + r - 1) = inpdata.Cells(r, cell.Column)
          Next r
          ns.Cells(i, c + r - 1) = cell.Value
          i = i + 1
      Next cell
End Sub