eliminate line
Code:
    ActiveSheet.Copy