Macro que no aplica formato

Buenas tardes compañeros, tengo una macro de excel que funciona perfectamente, pero al copiar los datos a la hoja nueva esta pierde el formato y los bordes de celda, es posible modificar la parte de COPY para no perder el formato de la hoja de destino? Muchas gracias

Set Ldata = Workbooks("Formato vale2-beta dam")
Set HLdata = Ldata.Worksheets("data")
Set HLvale = Ldata.Worksheets("vale")
HLvale.Range("A6:C20").ClearContents
HLdata.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
fila = 6
una = 1
For i = 2 To ufila
If una = 1 Then
conj = Cells(i, 1)
una = 2
End If
If conj = Cells(i, 1) Then
HLdata.Range("A" & i & ":C" & i).Copy Destination:= _
HLvale.Range("A" & fila)
fila = fila + 1
Else
HLvale.Select
MsgBox "Hoja vale lista para imprimir"
HLvale.Range("A6:C20").ClearContents
fila = 6
HLdata.Range("A" & i & ":C" & i).Copy Destination:= _
HLvale.Range("A" & fila)
fila = fila + 1
End If
HLdata.Select
conj = Cells(i, 1)
Next
HLvale.Select
MsgBox "Hoja vale lista para imprimir"
End Sub