EXCEL VBA ぶつ切りの表を連続で処理するコード

Sub clear2(n, n1, n2)
endr = 1
'EXCEL 2007最終行が違うかも
Do Until endr >= 65536
Start = endr
endr = Cells(endr, 1).End(xlDown).Row
If endr >= 65536 Then Exit Do

Start = endr + 1
endr = Cells(endr, 1).End(xlDown).Row

Range(Cells(Start, n), Cells(endr, n)).ClearContents
Range(Cells(Start, n1), Cells(endr, n1)).ClearContents
Range(Cells(Start, n2), Cells(endr, n2)).ClearContents
Loop
End Sub

分かりにくいが　自分の表では4行～28行　
2回目は34～48行が処理される
１列目に文字が入ってるところまで処理するパターン

空白行
表
空白行
表
のパターンで処理が出来ます