Problemer med FOR NEXT VBA kode

Hej ,

Jeg har en Excel fil som skal løbe x antal rækker igennem i kolonne AB. Hvis der står en værdi i cellen som er forskelligt fra det input der kommer, så skal rækken slettes.

Men jeg har problemer med at få koden til at fungerer.

Håber en kan hjælpe :-)

Private Sub LoenEPOS()

    Application.ScreenUpdating = False
    MyValue = InputBox("Indtast lønperiode", "Lønperiode", "F.eks. 201806")
   
    ValÅr = Left(MyValue, 4)
    ValMåned = Right(MyValue, 2)
   
    SletFratrådte = ValMåned & "-" & ValÅr & ""  => Data kunne være: 05-2018
   
    Range("A1").End(xlDown).Select
   
    LstRowCount = ActiveCell.Row
    LstRow = LstRowCount - 1
     
        Range("AB1").Select
   
        For j = 1 To LstRow
            If IsEmpty(ActiveCell.Offset(j, 0).Range("A1").Value) = True Then
                'Skal gå videre til næste celle
               
            ElseIf Right(ActiveCell.Offset(j, 0).Range("A1").Value, 7) <>          SletFratrådte Then

                ActiveCell.Offset(j, 0).Range("A1").EntireRow.Delete

            End If

        Next