[VBA]

Sub Macro_LINE()
Dim btn As Object

Set btn = ActiveSheet.Buttons(Application.Caller)
If btn.Caption = "Add line" Then

With Range(ActiveCell, ActiveCell.Offset(0, 27))

'add bottom border:
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

'add bold, right border:
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

'change button command to delete line:
btn.Caption = "Delete line"
Else

'delete line:

With Range(ActiveCell, ActiveCell.Offset(0, 27))

.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End With

'change button command to add line:
btn.Caption = "Add line"
End If

Sheets("Sheet1").Select
Range(ActiveCell, ActiveCell.Offset(0, 0)).Select

End Sub
[/VBA]