Sub ДобавлениеСтрокПротокол_ОТ()
    Dim tbl As Range, cell As Range
    
    ' проверим попадание в таблицу
    Set tbl = ActiveCell.CurrentRegion.Cells(1, 1).CurrentRegion
    If tbl.Rows.Count < 3 Then
        Set tbl = Nothing
    Else
        Set tbl = tbl.Offset(2).Resize(tbl.Rows.Count - 2)
    End If
    If Intersect(tbl, ActiveCell.EntireRow) Is Nothing Then
        MsgBox "Выделите ячейку в таблице"
        Exit Sub
    End If
    
    ' далее tbl это строка-образец, добавляем новую ниже её
    Set tbl = Intersect(tbl, ActiveCell.EntireRow)
    tbl.Offset(1).EntireRow.Insert
    tbl.Copy tbl.Offset(1)
    If Len(tbl.Cells(1, 2)) > 0 Then tbl.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
    tbl.Offset(1).Cells(1, 2).Select
End Sub