Dar formato a una celda al copiarla

[EGR33]

Sub Copiarypegar()

Application.ScreenUpdating = False

'Range("Q1:EF1").Locked = False

'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situados

Range("a12:A30").Select 'seleciona el rango especifico

'ActiveCell.CurrentRegion.Select

'Copiamos

Selection.Copy

'Pegamos en A12 de la hoja 2

Sheets("DAILY REPORT").Select

Range("A12").Select 'el control se hará sobre la columna A, a partir de la fila

While ActiveCell.Value <> "" 'Busca la ultima fila

ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente

Wend

ActiveSheet.PasteSpecial

Application.CutCopyMode = False

'Hoja1.Rows(12).ClearContents

Hoja1.Range("a14").ClearContents

Hoja1.Range("b14").ClearContents

Hoja1.Range("c14").ClearContents

Hoja1.Range("d14").ClearContents

Hoja1.Range("e14").ClearContents

Hoja1.Range("f14").ClearContents

Hoja1.Range("g14").ClearContents

Hoja1.Range("h14").ClearContents

Hoja1.Range("i14").ClearContents

Hoja1.Range("a17").ClearContents

Hoja1.Range("b17").ClearContents

Hoja1.Range("c17").ClearContents

Hoja1.Range("d17").ClearContents

Hoja1.Range("e17").ClearContents

Hoja1.Range("g17").ClearContents

Hoja1.Range("h17").ClearContents

Hoja1.Range("i17").ClearContents

Hoja1.Range("a20").ClearContents

Hoja1.Range("b20").ClearContents

Hoja1.Range("c20").ClearContents

Hoja1.Range("d20").ClearContents

Hoja1.Range("e20").ClearContents

Hoja1.Range("f20").ClearContents

Hoja1.Range("g20").ClearContents

Hoja1.Range("h20").ClearContents

Hoja1.Range("i20").ClearContents

Hoja1.Range("a23:c23").ClearContents

Hoja1.Range("d23:f23").ClearContents

Hoja1.Range("g23").ClearContents

Hoja1.Range("h23").ClearContents

Hoja1.Range("i23:j23").ClearContents

Hoja1.Range("a26:c26").ClearContents

Hoja1.Range("a29:i29").ClearContents

Range("a14").Select

'Range("Q1:EF1").Locked = True

MsgBox ("DATOS GUARDADOS EXITOSAMENTE ")

Application.ScreenUpdating = True

End Sub

el tema que la celda a29 en la hoja1

tiene este codigo.

Sub celda_29()

Application.ScreenUpdating = False

Sheets("VUELO").Select

Range("A29").Select

Selection.UnMerge

Selection.EntireRow.AutoFit

Selection.Merge

Application.ScreenUpdating = True

End Sub

al copiar todo a la hoja dos el formato no lo respeta.

esta celda se repite cada 13 filas.

Me podrian hechar una mano

[shahuinto]

Selection.UnMerge

se usa para combinar dos o mas celdas, pero la celda A29 no combina con ninguna celda mas, ahi puede estar el error.

[EGR33]

lo que necesito es que busque la ultima fila libre y a la antepenúltima fila insertar este formato

Selection.UnMerge

Selection.EntireRow.AutoFit

Selection.Merge

Application.ScreenUpdating = True

es decir cada vez que copie busque ese fila.

esta combinada va desde a29,i29

[EGR33]

El caso es que al copiar el rango de la hoja 2 a la hoja 3.

en la fila 29,48 y sucesivo si existe datos quiero que me haga

Selection.UnMerge

Selection.EntireRow.AutoFit

Selection.Merge

Application.ScreenUpdating = True

para que se autoajuste

ya que la celda esta combinada a29:i

asta la ultima linea ocupada

slds y grs