Excel - desarrollar un pseudocodigo que me mande la informacion codigoCliente a la hoja 4

For i = PrimerClienteLista To UltimoClienteLista

        Ruta = Hoja3.Cells(i, 16)

        CodCliente = Hoja4.Cells(i, 1).Value

        Hoja4.Cells(i, 1).Value = Hoja3.Cells(i + 1, 14).Value

        Hoja4.Cells(i + 1, 14).Value = CodCliente

 'k = PrimerClien

 While Hoja3.Cells(1, 2).Value > Ruta

'While AcumuladoCapacidadUsadaVehiculo <= CapacidadVehiculo

    'Ruta = Ruta + 1