Error en tiempo de ejecucion de Range

[mrocf]

Hola! rockbirra.
Aparentemente (corrígeme si no es así) tu código copia el formato del rango [D1:D33] a las siguientes columnas hasta encontrar en la fila "1" algo que no sea texto.

En tal caso, intenta con:

Código:

Sub CopiaFormato()
LCol = 1000
j = Evaluate("min(istext(e1:" & Cells(1, LCol).Address & _
  ") * 9999 + column(e1:" & Cells(1, LCol).Address & "))")
[d1:d33].Copy
Range("e1", Cells(33, j - 1)).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False: Cells(1, j).Select
End Sub
 

Que el parámetro "LCol" tome valor "1000" (o sea que tu última columna a evaluar sea la Nº 1000) indica que tienes Excel 2007.
De no ser así, todos los códigos fallarán.

Saludos, Cacho.