Replace this...
Range("A2:A20").Copy Destination:=Found.Offset(1)

With this...
Found.Offset(1).Resize(19).Value = Range("A2:A20").Value