rettelse af makro - calle en makro samt forlade en makro

JEg har fået hjælp til denne kode før på denne side.

Den virker faktisk som den skal, men følgende linie vil jeg gerne have ændret:
If RK < 5 Then Exit Sub

Den forlader jo subben som den. Men jeg kunne godt tænke mig at den gør følgende istedet:

Call makro1 + exit sub (altså begge dele i denne kodelinie), Resten af koden er som den skal være.

Jeg har forsøgt noget med AND, men kan ikke få det til at virke.

Er der nogen der kan sige mig hvordan den kan løses?


www.experten.dk/spm/800470/

Public Sub TjekNr()
Dim RK As Long, Data As Variant, OK As Boolean
    With Worksheets("Konto")
        RK = .Range("N65536").End(xlUp).Row
        If RK < 5 Then Exit Sub
        Tjek = .Range("N5:O" & RK)

        For I = 1 To UBound(Tjek)
            OK = False
            For Y = 1 To UBound(Tjek)
                If Not IsEmpty(Tjek(I, 1)) Then
                    If Tjek(I, 1) = Tjek(Y, 2) Then
                        OK = True
                        Exit For
                    End If
                Else
                    OK = True
                End If
            Next
            If Not OK Then

                MsgBox "Du har glemt at angive nr i kolonne O i linien(" & .Range("O" & I + 4).Offset(0, -14) & " " & .Range("O" & I + 4).Offset(0, -13) & ")"
                .Range("O" & I + 4).Select
                Exit Sub
            End If
        Next
    End With
End Sub