¿Me auditas mi proyecto VBA por favor?

Hola Experto

Tengo una rutina que en resumen debe tomar la información de cada fila que se
encuentra en la hoja 5 y copiarlo a un formato de la hoja 11 donde se
debe repetir 4 veces en diferentes celdas, después imrpime el formato y
continua en la siguiente fila. En teoría debo alimentar la celda L4 de
la hoja 11 para indicar la cantidad de filas que quiero imprimir sin
embargo no me funciona, ¿Me puedes ayudar a encontrar el error y a proponerme la solución?:

Private Sub CommandButton1_Click()
Dim t As Long
Dim i As Long
t = Application.WorksheetFunction.CountA(Sheets(5).Range("A1:A1048576"))
cancela = False
'4c7569735f50
For i = 1 To ([L4] + 1) Step 2
Sheets(11).Range("h2") = Sheets(5).Range("a" & i)
Sheets(11).Range("e4") = Sheets(5).Range("b" & i)
Sheets(11).Range("e5") = Sheets(5).Range("c" & i)
Sheets(11).Range("e6") = Sheets(5).Range("d" & i)
Sheets(11).Range("e7") = Sheets(5).Range("e" & i)
Sheets(11).Range("e8") = Sheets(5).Range("f" & i)
Sheets(11).Range("e9") = Sheets(5).Range("g" & i)
Sheets(11).Range("h2").Offset(11, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(11, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(11, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(11, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(11, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(11, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(11, 0) = Sheets(5).Range("g" & i + 0)
Sheets(11).Range("h2").Offset(26, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(26, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(26, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(26, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(26, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(26, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(26, 0) = Sheets(5).Range("g" & i + 0)
Sheets(11).Range("h2").Offset(41, 0) = Sheets(5).Range("a" & i + 0)
Sheets(11).Range("e4").Offset(41, 0) = Sheets(5).Range("b" & i + 0)
Sheets(11).Range("e5").Offset(41, 0) = Sheets(5).Range("c" & i + 0)
Sheets(11).Range("e6").Offset(41, 0) = Sheets(5).Range("d" & i + 0)
Sheets(11).Range("e7").Offset(41, 0) = Sheets(5).Range("e" & i + 0)
Sheets(11).Range("e8").Offset(41, 0) = Sheets(5).Range("f" & i + 0)
Sheets(11).Range("e9").Offset(41, 0) = Sheets(5).Range("g" & i + 0)
If cancela = True Then MsgBox "Cancelado - se imprimio hasta el registro :" & i, vbInformation: Exit Sub
imprime
DoEvents
Next
End Sub

Muchas gracias Experto
saludos,
Edgar Ureña
[email protected]