Excel VBA中，将Sheet1中不带颜色的行，复制到Sheet2中

Sub copy2AnotherWorkbook_by_zzllrr()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sht, r
Set sht = ActiveWorkbook.Sheets("Sheet2")
Call pub_wbOpenOrActive2("D:\123\new.xlsx")
r = Sheets("Sheet1").UsedRange.Rows.count + 1
u = sht.UsedRange.Rows.count

sht.Rows("2:" & sht.UsedRange.Rows.count).Copy
Sheets("Sheet1").Range("A" & (r + 1)).Select
ActiveSheet.Paste

ActiveWorkbook.Close True
ActiveWorkbook.Close True
Workbooks.Close

End Sub