Visual Basic para Aplicaciones - select case

hola jorge te agradezco tu respueta pero aunque no lo creas los errores que decis los correji mientras que end select estaba. Sabes donde estaba el problema y que no me dejaba dormir es que yo en la hoja de calculo tenia estos numeros que por medio de los "case 1, 2, 3, ....,etc encotraba la referencia para colocar los datos, el problema radicaba que en donde estaba los numeros las celdas estaban unidas y aunque no lo creas no lo individuaba. No se si me hice entender bien, por favor cualquier cosa preguntame.

saludos