行削除

'　a5に連続している範囲の行に10を足して,その行から最終行までを行削除する。
i = Range("a5").CurrentRegion.Rows.Count + 10
Rows(i & ":65536").Select: Selection.Delete Shift:=xlUp