Sub makeNormalTable()
     Dim varCols, varRows, varData, varResult(), r, c, i
      
     varCols = Worksheets("info").Range("B1:AW1")
     varRows = Worksheets("info").Range("A2:A68")
     varData = Worksheets("info").Range("B2:AW68")
      
     ReDim varResult(1 To WorksheetFunction.CountA(varData), 1 To 3)
      
     For c = LBound(varCols, 2) To UBound(varCols, 2)
         For r = LBound(varRows, 1) To UBound(varRows, 1)
             If Not IsEmpty(varData(r, c)) Then
                 i = i + 1
                 varResult(i, 1) = varRows(r, 1)
                 varResult(i, 2) = varCols(1, c)
                 varResult(i, 3) = varData(r, c)
             End If
     Next r, c
      
     Worksheets("database").Range("A2").Resize(i, 3) = varResult
End Sub