Solución 5.9 Hacer más grande una tabla dinámica conservando los valores iniciales

Sub EX9()  
    Dim intTamaño1 As Integer 
    Dim intTamaño2 As Integer 
     
    intTamaño1 = Application.InputBox _ 
    (prompt:="Primer tamaño de la tabla", _ 
    Type:=1, Title:=" Número entero positivo < 32.767") 
    ReDim dblTabDinamica(1 ...