Excel - MACRO PARA SEPARAR 150 CARACTERES O MENOS

Saludos a todos en el foro necesito ayuda, tengo una lista de excel con más de 300 partidas, que debo rellenar de manera que no se salgan de ciertas columnas , solo que al hacerlo me limita a 255 caracteres y me borra el texto siguiente.
Quisiera el código de una macro para que me corte el texto que esté despues de losprimeros 150 caracteres y me lo pase a un nuevo renglon que deba insertar, solo que no me corte la palabra,si hay una palabra, entonces que me corte el texto pero que la palabra me la pase al otro renglón tambien, es decir si el texo tenia en el caracter 148 "tamaulipas", entonces que me corte hasta 148 caracteres y asi.

¿Alguien podria auxiliarme?desde ya muchas gracias por la atención

Jonathan Gutiérrez

no es 'la solución', pero puede ayudarte...

Sub test()
Dim n&, p&
Dim s$, t$
t = "alguna frase cualquiera"
n = 15
If n > VBA.Len(t) Then Exit Sub
s = VBA.Mid(t, 1, n)
p = VBA.InStrRev(s, " ")
If p > 0 Then
s = VBA.Mid(t, 1, p - 1)
t = VBA.Mid(t, p + 1)
Else
t = VBA.Trim(VBA.Mid(t, n + 1))
End If
End Sub

... el texto dividido queda en s y t

Saludos, desde Baires, JuanC

Gracias por contestar, me explico mejor
Tengo aprox.1000 renglones con información que cada semana varia
Algunos renglones se pasan y tienen más de 256 caracteres,lo que me obliga a insertar uno ó mas renglones dependiendo del tamaño del texto para poder rellenar para que queden dentro del rango que me interesa
El problema que tengo es que al hacerlo selecciono en inicio - modificar -rellenar - justificar solo me justifica los primeros 256 caracteres y el resto se lo come.
Por éso busco hacerlo con una macro, básicamente es un renglon por cada 150 caracteres (asi queda bien en el rango sin tener que seleccionar) y rellenar.
La informacion siempre empieza en a1 y varia en cantidad de renglones
Tengo el Office 2007 instalado

Saludos

Esto puede servirte:
http://www.mrexcel.com/forum/showthread.php?t=570249