Visual Basic vba excluir linha de tabela

[Ismael Souza]

Olá !

 Pessoal, gostaria de solicitar ajuda a vocês para resolver o seguinte código:

Dim iRn As Integer
 Dim rn, rng As String
 
 Do Until ActiveCell = ""
  rn = Mid(ActiveCell.Offset(0, 2).Value, 7, 4) & Mid(ActiveCell.Offset(0, 2).Value, 4, 2) & Mid(ActiveCell.Offset(0, 2).Value, 1, 2)
  rng = st4 & st3 & st2
   iRn = ActiveCell.Rows.Count
  If ActiveCell.Offset(0, 3).Text = "FLAGSHIP" Then

     ElseIf rn < rng Then
     
      Selection.ListObject.ListRows(iRn).Delete
      ActiveCell.Offset(-1, 0).Select
     
  End If
      ActiveCell.Offset(1, 0).Select

 Loop

A váriavel iRn está mostrando sempre com valor 1, preciso que me diga em que linha está para deletar a linha da tabela.

 

alguem poderia me ajudar com isso por favor?