Insertar fila vacia

Tengo una lista de datos de aproximadamente 6500 filas y deseo escribir una macro para insertar una fila entre cada uno de los datos.
He probado con el siguiente codigo pero la variable tipo string no almacena todo el rango que necesito
es decir solo funciona para rangos peque#os y cuando supera los 252 datos aparace un error:

Sub InsertarFilasEnBlanco()
Dim lngFila As Long
Dim cadena As String
Dim hoja As Worksheet
Dim rango As Range
Dim rango2 As Range
Set hoja = ActiveSheet
Set rango2 = ActiveWindow.Selection
dato = hoja.Index 'obtiene el indice de la hoja activa donde estoy aplicando la macro
f1 = rango2.Row 'fila de inicio del rango seleccionado
f2 = f1 + rango2.Rows.Count - 1 'fila de fin del rango seleccionado
numdatos = f2 - f1 ' nàºmero de datos totales
With Worksheets(dato)
' aqui se da el error ya que la cadena se alimenta hasta cumplir 256 caracteres y para el resto de datos no funciona [...]
For lngFila = f1 To f2
If WorksheetFunction.CountA(.Rows(lngFila)) <> 0 Then cadena = cadena & lngFila & ":" & lngFila & ","
Next lngFila
Application.ScreenUpdating = False
.Range(Left(cadena, Len(cadena) - 1)).Insert
Application.ScreenUpdating = True
End With
End Sub

Application.ScreenUpdating = False
For lngFila = f2 To f1 Step -1
If Application.CountA(.Rows(lngFila)) Then .Rows(lngFila).EntireRow.Insert
Next

Tengo una lista de datos de aproximadamente 6500 filas y deseo escribir una
macro para insertar una fila entre cada uno de los datos. He probado con el
siguiente codigo pero la variable tipo string no almacena todo el rango que
necesito, es decir solo funciona para rangos pequeños y cuando supera los 252
datos aparace un error:

Sub InsertarFilasEnBlanco()

Dim lngFila As Long
Dim cadena As String
Dim hoja As Worksheet
Dim rango As Range
Dim rango2 As Range
Set hoja = ActiveSheet
Set rango2 = ActiveWindow.Selection

dato = hoja.Index 'obtiene el indice de la hoja activa donde estoy
aplicando la macro

f1 = rango2.Row 'fila de inicio del rango seleccionado
f2 = f1 + rango2.Rows.Count - 1 'fila de fin del rango seleccionado

numdatos = f2 - f1 ' número de datos totales




With Worksheets(dato)
' aquí se da el error ya que la cadena se alimenta hasta cumplir 256
caracteres y para el resto de datos no funciona, sirviendo solo para rangos
pequeños
For lngFila = f1 To f2
If WorksheetFunction.CountA(.Rows(lngFila)) <> 0 Then cadena =
cadena & lngFila & ":" & lngFila & ","
Next lngFila

Application.ScreenUpdating = False

.Range(Left(cadena, Len(cadena) - 1)).Insert

Application.ScreenUpdating = True

End With
End Sub



Gracias de antemano por vuestra ayuda

Carlos... un abrazo desde el pie del Volcan Misto-Peru
te sugiero probar esta macro

Dim intFila As Integer
intFila = 2
While Cells(intFila, 1) <> "" Or Cells(intFila + 1, 1) <> "" ' buscando
ultima fila vacia
intFila = intFila + 1
Wend
While intFila > 1 ' Agregando empezando por el ultimo
While Cells(intFila, 1) = "" And intFila > 1
intFila = intFila - 1
Wend
Rows(Trim(Str(intFila)) & ":" & Trim(Str(intFila))).Select
Selection.Insert Shift:=xlDown
intFila = intFila - 1
Wend


"carlos" escribió:

> Tengo una lista de datos de aproximadamente 6500 filas y deseo escribir una
> macro para insertar una fila entre cada uno de los datos. He probado con el
> siguiente codigo pero la variable tipo string no almacena todo el rango que
> necesito, es decir solo funciona para rangos pequeños y cuando supera los 252
> datos aparace un error:
>
> Sub InsertarFilasEnBlanco()
>
> Dim lngFila As Long
> Dim cadena As String
> Dim hoja As Worksheet
> Dim rango As Range
> Dim rango2 As Range
> Set hoja = ActiveSheet
> Set rango2 = ActiveWindow.Selection
>
> dato = hoja.Index 'obtiene el indice de la hoja activa donde estoy
> aplicando la macro
>
> f1 = rango2.Row 'fila de inicio del rango seleccionado
> f2 = f1 + rango2.Rows.Count - 1 'fila de fin del rango seleccionado
>
> numdatos = f2 - f1 ' número de datos totales
>
>
>
>
> With Worksheets(dato)
> ' aquí se da el error ya que la cadena se alimenta hasta cumplir 256
> caracteres y para el resto de datos no funciona, sirviendo solo para rangos
> pequeños
> For lngFila = f1 To f2
> If WorksheetFunction.CountA(.Rows(lngFila)) <> 0 Then cadena =
> cadena & lngFila & ":" & lngFila & ","
> Next lngFila
>
> Application.ScreenUpdating = False
>
> .Range(Left(cadena, Len(cadena) - 1)).Insert
>
> Application.ScreenUpdating = True
>
> End With
> End Sub
>
>
>
> Gracias de antemano por vuestra ayuda