求助！使用VBA代码pastespecial功能问题

Derekcjg

使用pastespecial功能，实现点击工作表2时，自动将工作表1某几行内容完全复制到工作表2中（包括格式以及列宽行高），但是每次点击工作表2都会卡很久，甚至未响应，需要等待十几分钟才能正常实现功能。代码如下，希望帮忙看看问题出在哪里，谢谢！

Private Sub Worksheet_Activate()

Application.CutCopyMode = False


    Sheets("sheet1").Rows("7:23").Copy
     Sheets("sheet3").Rows("17:33").PasteSpecial Paste:=xlPasteColumnWidths _

    Sheets("sheet3").Rows("17:33").PasteSpecial _
     Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False


Application.CutCopyMode = True

End Sub