Sub Recopie_TCD_Val_Format()
'
' Recopie_TCD_Val_Format Macro
'
'
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.ClearFormats
    ActiveSheet.Next.Select
    Selection.Copy
    ActiveSheet.Previous.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A2").Select
    'Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveCell.SpecialCells(xlLastCell).Select
    Stop
    ActiveCell.Select
    
    derl = ActiveCell.Row
    
    Range("A2:B" & derl).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
End Sub