Range("B2:C2").Select Selection.Copy Range("J2").Select Selection.End(xlDown).Select Range("B82706:C82706").Select Range("C82706").Activa