Crear rangos con variables.

Hola, tengo una tabla donde la estrategia es insertar una linea en blanco en funcion de unos determinados valores de una columna. Hecho esto, se ordena por un campo, hasta esa linea insertada. Hasta aqui bien. Pero cuando quiero hacer el siguiente bloque ya me lio con la sintaxis para crear el rango nuevo. En definitiva, la hoja ha de quedar con cuatro bloques, ordenados por un determinado campo, no el mismo en cada bloque. Paso el código que tengo para el 1er bloque.
Dim CurCell As Object
Range("A2").Select
For Each CurCell In Range("A2:A5000") ' Para el siguiente bloque, con variables?
If CurCell.Value <> "Artíc." Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Exit For
End If
Next
Muchas gracias.