Excel - Ayuda conn esta macros

Sub sd()

Dim i, z As Integer

Dim p As String

Dim celda As String

Dim hoja As String

Dim LIBRO As String

Dim ruta As String

LIBRO = Format(Date, "dd-mmm-yyyy")

ruta = "\\logistica3\Logistica\Informe diario de la maquinaria\Informe diario\" & LIBRO & ".xls"

rutaori = "\\logistica3\Logistica\Informe diario de la maquinaria\Informe diario\Registro diario plantilla.xlsm"

z = 9

p = z

i = 1

If Workbooks(rutaori).Worksheets("interface").Cells(z, 6).Value <> 0 Then

    For i = 1 To 19

        If Workbooks(rutaori).Worksheets("inicio").Cells(p, 6).Value = Workbooks(ruta).Worksheets("hoja" & i).Cells(3, 4).Value Then

         'copiar hoja a workbook ruta

         Workbooks(rutori).Activate

    Sheets("hoja" & i).Select

    Sheets("hoja" & i).Copy Before:=Workbooks(ruta).Sheets(1)

       z = z + 3

       p = z

         Else

       z = 9

       p = z

        End If

        i = i + 1

    Next

Else

End If

End Sub