Duda - loop para seleccion de hojas a copiar

[francisco Rodriguez]

aludos a todos, espero me puedan ayudar en este simple loop q quiero hacer.

Les explico... en base a los datos plasmados en una tabla de excel debe de ocurrir un evento, que en mi caso es la apertura de un documento en una ruta y el copiado de sus datos al excel inicial.

La tabla es la siguiente:

Id Nombre Inicial Check Status Accion

1 KARLA HAVA KH FALSO En espera

2 CARMELO SCIARRA CS VERDADERO Respaldar

3 JOSE COLINA JC VERDADERO Respaldar

y este es el codigo del macro

Do While i <> 5 '<= cambiar este valor a 18! y la ruta debajo

i = i + 1

Select Case Range("H" & (i + 12)).Value <= le sumo 12 a i porquer el valor se encuentra en la celda H13-14-15 y asi sucesivamente

Case Is = "Respaldar"

'Crea nueva hoja

Sheets("Actual").Copy After:=Sheets(1)

Sheets("Actual (2)").Name = inicial(i)

Workbooks.Open Filename:="C:\Users\fjrodriguez\Documents\Control de Certificaciones EPSL\Certificaciones - " & inicial(i)

Sheets("Control Diario").Visible = True

Sheets("Control Diario").Select

Range("B12:R12").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Workbooks("Certificaciones - " & inicial(i)).Close

Workbooks("Registro de Certificaciones").Activate

Sheets(inicial(i)).Activate

Range("B11").Select

Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Select

Loop

ActiveSheet.Paste

Case Is = "En espera"

MsgBox "Saludos"

End Select

Loop

Mi problema con el codigo es que al encontrar la celda con "Respaldar" hace el copiado y termina el ciclo no continua con el resto de valores en la tabla, use el caso de "En espera" con el msgbox para ver su comportamiento y siempre que encuentra el case "Respaldar" parece que no continua haciendo la busqueda.

Podría alguien ayudarme a validar que hay de malo en mi codigo?