Dante Amor respondió:
Cambia las líneas de tu macro dese el inicio hasta esta línea: Range("D22:E2").Select Por este código: Set h1 = Sheets("formulario") Set h2 = Sheets("tabla datos") h2.Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove...