Private Sub cmdCopyColumns_Click()
    With Range("LastGroup").Resize(, 3)
        .EntireColumn.Insert
        With .Offset(, -3)
            .Merge
            .Cells(1) = InputBox("Введите имя группы:", "Новая группа")
        End With
    End With
End Sub

Private Sub cmdAddRow_Click()
    If ActiveCell.Row < 27 Then ' т.к. добавляются строки, а не ячейки, то нет смысла проверять принадлежность акт. ячейки к используемому диапазону
        MsgBox "Выделите ячейку в таблице"
    Else
        ActiveCell.EntireRow.Insert
        Rows(2).Copy ActiveCell.EntireRow
    End If
End Sub