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