Victor Maldonado Chavez respondió:
Puedes reemplazar tu código por el que te pongo a continuación: Sub Botón_datos() 'Por Víctor M Application.ScreenUpdating = False Rows("19:19").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("C7"). Copy Range("B19")...