엑셀파일의 내용 합친 후 필요없는 행 지우기

Option Explicit

Sub DelRows()

Dim i As Integer
Dim Worksheet As Worksheet

Sheets("Sheet1").Select

For i = 9 To 1 Step -1

 If Cells(i, 1) = "구분" Then
 Rows(i).Select
 Selection.Delete shift:=xlUp
 End If
 Next i

End Sub

-------------------
1열의 내용 중 "구분"이 있으면 해당 행 삭제하고 한 행씩 올려라.