Insertar fila

Hola a todos
Tengo un pequeno problema, al intentar incertar una fila por medio de una
macro, me causa un prob que no puedo identificar, si lo realizo con la
grabadora de macros, me trabaja muy bien, pero cuando paso este codigo a la
macro del procedimiento me genera error, agradesco de antemanco cualquier
comentario

Sheets("VENTAS").Select
Rows("8:8").Select
Selection.Insert Shift:=xlDown