Sub Demo()
Application.ScreenUpdating = False
Dim r As Long
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  With .Tables(1)
    .Rows.Alignment = wdAlignRowCenter
    For r = 1 To .Rows.Count - 1
      If .Cell(r, 1).Range.Characters.First.Font.Italic = True Then
        If .Cell(r + 1, 1).Range.Characters.First.Font.Italic = True Then
          .Cell(r, 1).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        End If
      End If
    Next
  End With
End With
Application.ScreenUpdating = True
End Sub