Sub GUARDAR()
Application.ScreenUpdating = False
' ---&--- Insertas una fila por encima de la fila 9 en la hoja DATOS
Sheets("DATOS").Select
Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
' ---&--- Seleccionas la hoja REGISTROS, seleccionas la celda D27 y copias contenido
Sheets("REGISTRO").Select
Range("D7,D9,D11,D13,D15,D17,D19,D21,D23,D25,D27").Select ' --- Esta línea sobra
Range("D27").Activate
Selection.Copy
' ---&--- Seleccionas la hoja DATOS y las celdas de la fila 9 de la A a la K
Sheets("DATOS").Select
Application.WindowState = xlMaximized ' ---- Esto no tiene sentido
Range("A9:K9").Select
' ---&--- Pagas el valor copiado
Selection.PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
' ---&--- Esto no tiene sentido es repetitivo y no ayuda
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
' ---&--- Vacia el buffer de la copia
Application.CutCopyMode = False
' ---&--- Pone bordes al area selecionada
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
' ---&--- Parece que se repite
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
' ---&--- Sigue sin tener sentido
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
' ---&--- Ejecutas una macro de un libro que podría no ser este
Application.Run "'BASE DE DATOS ENYGAS.xlsm'!convmays"
' ---&--- Sigue sin tener sentido
Application.WindowState = xlNormal
' ---&--- Borras el contenido de unas celdas de la hoja REGISTRO
Sheets("REGISTRO").Select
Range("D7").Select: ActiveCell.FormulaR1C1 = ""
Range("D9").Select: ActiveCell.FormulaR1C1 = ""
Range("D11").Select: ActiveCell.FormulaR1C1 = ""
Range("D13").Select: ActiveCell.FormulaR1C1 = ""
Range("D15").Select: ActiveCell.FormulaR1C1 = ""
Range("D17").Select: ActiveCell.FormulaR1C1 = ""
Range("D19").Select: ActiveCell.FormulaR1C1 = ""
Range("D21").Select: ActiveCell.FormulaR1C1 = ""
Range("D23").Select: ActiveCell.FormulaR1C1 = ""
Range("D25").Select: ActiveCell.FormulaR1C1 = ""
Range("D7").Select
' ---&--- Finalmente Salvas el Libro
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub