Sub DATOS()
'
' DATOS Macro
'
'
Application.ScreenUpdating = False
Sheets("DATOS").Select
Range("A7:Q7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Sheets("REGISTRO PLANILLA").Select
Range("J6:J19").Select
Selection.Copy
Sheets("DATOS").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("REGISTRO PLANILLA").Select
Range("M16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATOS").Select
Range("O7").Select
ActiveSheet.Paste
Sheets("REGISTRO PLANILLA").Select
Range("M17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATOS").Select
Range("P7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""E"",RC[-2]*RC[-4]*1.5,0)"
Range("A7:Q7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B3").Select
Sheets("REGISTRO PLANILLA").Select
Range("J9").Select
Selection.ClearContents
Range("J12").Select
Selection.ClearContents
Range("J14").Select
Selection.ClearContents
Range("J16").Select
Selection.ClearContents
Range("J17").Select
Selection.ClearContents
Range("M16").Select
Selection.ClearContents
Range("J9").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub