ERROR corregido de un código pero atrajo otro error en guardacopia

PARA ELSA

Hola elsa me acabas de ayudar con un código que tu creaste y recientemente me ayudaste en un detalle de rangos...

En el código me dijiste que ponga esto para solucionar el error:

'asigno ruta y nombre para la copia. El nombre concatena fecha y nro
ruta = ThisWorkbook.Path & "\COPIAS PANADERIA\" 'NOMBRE DE CARPETA
fini = Range("B" & Rows.Count).End(xlUp).Row
nbrecopia = Format(Range("B" & fini - 1), "dd/mm/yyyy") & " folio " & Range("B" & fini)

Lo cual hice (probé la macro con el msgbox y efectivamente indica los datos requeridos)

el problema esta al ejecutarse el código.

esto me sale 

LUEGO ESTO

Y POR ULTIMO ESTO

LO unico que tengo en mi hoja PANADERIA es esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Set celdaActiva(0) = celdaActiva(1)
Set celdaActiva(1) = Target
On Error Resume Next
celdaActiva(0).EntireRow.Interior.Color = xlNone
celdaActiva(0).EntireColumn.Interior.Color = xlNone
Target.EntireRow.Interior.Color = RGB(121, 179, 165)
Target.EntireColumn.Interior.Color = RGB(121, 179, 165)

ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
Application.DisplayStatusBar = False
ActiveSheet.Protect
End Sub

Ejecuto el código con hoja protegida y hasta desprotegida... Ahora no se que pasa :C