Insertar valor de acuerdo a cantidad

[ARROMERO]

Buenas tardes, el codigo siguiente me inserta un codigo, es decir:

En mi celda G1 tengo un codigo, copio ese codigo y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F.

Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada.

Mi codigo:

'--------------------------------------------------------

' Macro para insertar filas segun cantidad de codigo |

'--------------------------------------------------------

Sub InsertarFilasCantidadsitio()

'Variables para filas a insertar y para cantidad de filas

Dim filas As Integer

Dim var As Integer

' Indica la fila desde donde empieza a trabajar

filas = 3

'Empieza a contar si el valor de la celda es vacio

Do Until Cells(filas, 6) = ""

' Revisa que el valor sea diferente de 0

If Cells(filas, 6) <> 0 Or Cells(filas, 6) <> "" Or Val(Cells(filas, 6)) > 0 Then

'Resta 1 a la cantidad de filas a insertar

var = Cells(filas, 6)

'Ciclo para insertar filas

For m = 1 To var

Range("G1").Copy

Selection.Insert Shift:=xlDown

Range("G3").Select

Range("G3").Value = Range("G1").Value

Application.CutCopyMode = Cut

'Fin de for

Next m

'----

'Fin de condicion

End If

'-----

'Condicion que se ejecuta mientras el valor sea vacio

'fila + valor a insertar + contador

filas = filas + var + 1

Loop

End Sub

Espero me haya explicado, si necesitan el ejemplo del archivo haganmelo saber.

Saludos.

Atte:

@Pseudostark

Twitter: @PseudoStark