Los datos deben ser introducidos en las celdas con el fondo o relleno verde. Espero sus comentarios y criticas para hacer correcciones. Gracias
Clic para descargar Archivo .XLSM
Para el procedimiento paso a paso clic aqui
VBA,Excel,Visual Basic Aplication,Visual Basic Aplicaciones, Excel 2010,Macros,Programar Excel,Dim,IF Then,Select Case,Do Loop Until,Ventana Inmediato