Excel宏：表1重复行剪切至表2保存后另起一行

Application.ScreenUpdating = False
Sheet1.Activate
Dim i, j As Integer
For i = ActiveSheet.UsedRange.Rows.Count + 1 To 1 Step -1
	For j = i - 1 To 1 Step -1
		Select Case Cells(j, "B")
		Case ""
			Rows(j).Delete
		Case Cells(2, "L")
			Rows(j).Delete
		Case Cells(i, "B")
			Range("B" & i, "H" & i).Copy
			Sheet2.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlValues
			Sheet2.UsedRange.ClearFormats
			Rows(i).Delete
			Exit For
		End Select
	Next
Next
Cells(Range("A1").CurrentRegion.End(xlDown) + 2, "B").Select
Cells(ActiveCell.Row, "B") = Cells(2, "L")
Cells(ActiveCell.Row, "D") = 1
Cells(ActiveCell.Row, "G") = 1
Cells(ActiveCell.Row, "H") = 1
Cells(ActiveCell.Row, "I") = Cells(3, "L")
ThisWorkbook.Save
Application.ScreenUpdating = True