Hola buenas tardes amigos de Ayuda Excel. Por favor si me pueden ayudar con este procedimiento que no logro hacer. gracias

La macro que está en el botón debe evitar insertar una fila nueva si el valor de la última celda en la columna G es igual a cero (0). Y un MSGBOX que indique al usuario que debe llenar la información primero.

EJEMPLO AYUDA EXCEL.xlsm

Te dejo la solución @Leonardo Briceño , pero deberías pensar porqué has puesto esto, pues no tiene sentido (For x=1 To 1 )

For x = 1 To 1
    Range("A4:G4").Copy
    ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Insert xlDown
       
    Application.CutCopyMode = False
 Next

 

Copia de EJEMPLO AYUDA EXCEL-1.xlsm

Gracias @Haplox funciona tal como lo deseaba?

Si de tu comentario, fue una macro que me dio Antoni para otro caso, lo quise adaptar a esta nueva situación, le hice unos cambios pero me faltaba lograr en lo que tu ayudaste. Con la macro de Antoni necesitaba insertar 5 filas y como aquí solo es una pues cambié a 1, jejejeje. Poco a poco voy aprendiendo?