Sub indice fuera del intervalo

Buen dia grupo
tengo el siguiente codigo que me copia de una hoja de calculo los datos a
otra pero me sale el error del asunto error 9 en tiempo de ejecucion.. sub
indice fuera del intervalo. al darle click en depurar la interrupcion se
detiene en la linea:

Set ws = Worksheets("Clientes")


Private Sub btnEnviar_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("Clientes")
'Encuentra la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Copia los datos a la hoja
ws.Cells(iFila, 1).Value = Worksheets("Formulario").Range("c4")
ws.Cells(iFila, 2).Value = UCase(Worksheets("Formulario").Range("c5"))
'salva los datos
ActiveWorkbook.Save
End Sub

tengo otros libros que hacen lo mismo con el mismo codigo pero hasta ahora
se me presenta el error

gracias por la colaboracion

Jorgef