Sub Elina_Filas()
Dim msgvalue As Integer
uf = Range("D" & Rows.Count).End(xlUp).Row
msgvalue = MsgBox("Está seguro de eliminar el registro?", vbInformation + vbYesNo, "Mensaje de Alerta")
Select Case msgvalue
Case 6
Range("D" & uf).EntireRow.Delete
Case 7
Exit Sub
End Select
uf1 = Range("D" & Rows.Count).End(xlUp).Row
Range("D" & uf1).Borders.LineStyle = xlContinuous
Range("E" & uf1).Borders.LineStyle = xlContinuous
Range("F" & uf1).Borders.LineStyle = xlContinuous
Range("G" & uf1).Borders.LineStyle = xlContinuous
Range("H" & uf1).Borders.LineStyle = xlContinuous
Range("I" & uf1).Borders.LineStyle = xlContinuous
Range("J" & uf1).Borders.LineStyle = xlContinuous
Range("K" & uf1).Borders.LineStyle = xlContinuous
Range("L" & uf1).Borders.LineStyle = xlContinuous
Range("M" & uf1).Borders.LineStyle = xlContinuous
Range("N" & uf1).Borders.LineStyle = xlContinuous
Range("O" & uf1).Borders.LineStyle = xlContinuous
Range("P" & uf1).Borders.LineStyle = xlContinuous
Range("Q" & uf1).Borders.LineStyle = xlContinuous
Range("R" & uf1).Borders.LineStyle = xlContinuous
Range("S" & uf1).Borders.LineStyle = xlContinuous
Range("T" & uf1).Borders.LineStyle = xlContinuous
Range("U" & uf1).Borders.LineStyle = xlContinuous
Range("V" & uf1).Borders.LineStyle = xlContinuous
Range("W" & uf1).Borders.LineStyle = xlContinuous
Range("X" & uf1).Borders.LineStyle = xlContinuous
End Sub