Sub work_file() Worksheets("worksheet1").Copy After:=Worksheets("worksheet1") ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveSh