error 1004 en tiempo de ejecucion

[CESAR25-03-76]

hola amigos mil disculpas pero me olvide de anexar mi archivo con mi problema que se me a presentado bueno lo que pasa es que tengo una macro que inserta una fila en la misma hoja para luego copiar un cierto rango en la misma hoja la macro funciona de maravillas pero al llegar al registro 342 de la hoja de salidas me sale el siguiente error y la macro deja de funcionar :

erro 1004 en tiempo de ejecución para evitar perdida de dato excel no puede desplazar fuera de la hoja de calculo celdas que no estén en blanco seleccione otra ubicación para insertar nuevas celdas o elimine datos al final de la hoja de calculo.

si no hay datos en las celdas que se pueden desplazar fuera de la hoja de calculo se pueden restablecer los datos que exel considera.

anexo código para que así puedan entender mi problema y me puedan ayudar ya que soy sincero que este ejemplo lo baje de Internet y lo he adecuado a mis necesidades mil gracias de antemano. no puedo enviar el archivo por que me 442 kb y no

Sub ano_reg_ven()

'

' ano_reg_ven Macro

' Macro grabada el 10/05/2010 por Jesús Ferrer, aplicaciones sencillas para Excel[/url]

'

'

    Application.ScreenUpdating = False

    If Range("B5").Value = "" Then End

    If Range("C5").Value = "" Then End

    If Range("N5").Value < 0 Then End

    If Range("A10").Value = "50000" Then MsgBox prompt:="Se ha alcanzado el límite de anotaciones", Buttons:=vbOKOnly, Title:="ERROR": End

    ActiveSheet.Unprotect

    x = 0

    co$ = Range("D5").Value

    uni = Range("N5").Value


    Sheets("STOCK").Unprotect

    Sheets("STOCK").Select

    Range("B5").Select

    While ActiveCell.Value <> ""

        If ActiveCell.Value = co$ Then

            ActiveCell.Offset(0, 3).Select

            ActiveCell.Value = ActiveCell.Value - uni

            ActiveCell.Offset(0, -3).Select

            x = 1

        End If

        ActiveCell.Offset(1, 0).Select

    Wend

    Range("B5").Select

    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _

        , AllowFiltering:=True


    Sheets("SALIDAS").Select

    If x = 0 Then MsgBox prompt:="Este código no existe, deberá darlo de alta en la hoja REFERENCIAS antes de anotar movimientos de almacén.", Buttons:=vbOKOnly, Title:="ERROR": End

    Range("C10").Select

    Selection.EntireRow.Insert (aqui se pinta de amarillo)

    Range("B5:P5").Select

    Selection.Copy

    Range("B10").Select

    ActiveSheet.Paste

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    'Selection.Locked = True

    'Selection.FormulaHidden = False

    Range("A5").Select

    Selection.Copy

    Range("A10").Select

    ActiveSheet.Paste

    Range("D5:J5,L5:N5").Select

    Selection.ClearContents

    Range("E6").Select

    Selection.Copy

    Range("E5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("G6").Select

    Selection.Copy

    Range("G5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("H6").Select

    Selection.Copy

    Range("H5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("I6").Select

    Selection.Copy

    Range("I5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("J6").Select

    Selection.Copy

    Range("J5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("L6").Select

    Selection.Copy

    Range("L5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("M6").Select

    Selection.Copy

    Range("M5").Select

    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

    Range("D5").Select

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveSheet.EnableSelection = xlUnlockedCells


End Sub[/CODE]