what I think would work is if I could define the following destination line of code to read

.Copy Destination:=sht1.Range("A2") but with ("A2") modified to reflect col A of the active row sheet one that was inserted