Indsæt en tom linie efter den sidste celle (med bestemt data) optræder.

Hej,

Jeg skal udarbejde et system, der kan indsætte en tom linie, hvis bestemt kriterium er opfyldt. I kolonne a har jeg en tal række, hvor de samme tal optræder igen og igen, men jeg skal indsætte en linie efter f.eks. det sidste 2-tal der optræder.
Her er mit kode indtil videre:

Sub ny()

rowstart = 1

  If ActiveSheet.Range("a30").End(xlUp).Value = 2 Then
  Rows(ActiveCell.Row).Insert Shift:=xlDown
     
         
End If

End Sub

Er der nogen der kan hjælpe?