Автоматические линии границ строки в пределах определенных столбцов

Sub Макрос1()
Dim iLastRow As Double, I As Double, J As Integer, TF As Boolean
'
' Макрос1 Макрос
'в вашем тексте непонятно ставить все границы ячеек или только нижнюю
'сделано только для нижне границы, если нужны и другие, то в соответствующих
'строках макроса вместо xlNone поставить xlAutomatic
'строки 21 -34 макроса получены через РАЗРАБОТЧИК -> ЗАПИСАТЬ МАКРОС
'потом выделяете нужные вам ячейки ФОРМАТ ЯЧЕЕК -> ГРАНИЦЫ И ВЫБИРАЕТЕ НУЖНЫЕ ВАМ
'затем РАЗРАБОТЧИК -> ОСТАНОВИТЬ ЗАПИСЬ и ваш макурос готов.
'пользуйтесь этим почаще, может и не придётся обращатся с такими пустяками
 iLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
For I = 1 To iLastRow
  TF = False
  For J = 1 To 16
    If Cells(I, J) <> "" Then
      TF = True: Exit For
    End If
  Next
  If TF Then 'есть данные в строке
    Range("A" & I & ":P" & I).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  End If
Next
End Sub