Hallo Liebe leute kann mir jemanden auf die Sprünge helfen?

Ich habe eine spalte A bei welcher nummern drin stehen und ich habe Spalten  Q,R,S,T die Zelleninhalte in Links umgewandelt werden was auch funktioniert.

Nur möchte ich dass dies nur solange ausgeführt wird bis  If rngSpalte2 leer ist. 

Herzlichen Dank

'Hyperlinke umwandeln Spalten Q,R,S,T
    Dim Zelle As Range
    Dim rngSpalte1 As Range
    Dim rngSpalte2      As Range
  
    Set rngSpalte1 = Range("Q6:T500") 'anpassen!
    Set rngSpalte2 = Range("A6:A500") 'anpassen!
    
    For Each Zelle In rngSpalte1
        If rngSpalte2 = "" Then Exit For
        ActiveSheet.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value, TextToDisplay:="File Link"
    
    Next