Bom dia.
Seria +- isso que deseja?

Além desse código que você montou, eu preciso também que a mensagem seja exibida quando se cria uma linha apertando tab na última célula.

Num ajuste rápido veja se seria isto, troque a rotina e faça os testes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tabela As ListObject
    Dim sLin
    Dim sLin2
    Dim sColuna
    
    Set tabela = Plan1.ListObjects("Tabela1")
    
    ThisWorkbook.Names("Pre_altura").RefersTo = tabela.DataBodyRange.Rows.Count
    
    sLin = tabela.DataBodyRange.Rows.Count
    sColuna = ActiveCell.Column
    sLin2 = ActiveCell.Row
    
    sLinTxt = ActiveCell.Value
    
    If sColuna = 2 Then
    
    Else
        If sLin2 > sLin And sLinTxt = "" Then MsgBox "linha em branco  criada"
    End If

End Sub

[]s