Schleife um ein Makro bauen

Sub importSortKey()
Range("A2").select
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))"
End Sub

Zur Formel: RC[1] = Zelle B2;
Ich würde das Makro gerne so erweitern, dass es alle Zellen von Spalte A durchläuft, bis zum Ende der Liste.
Kann auch gerne von unten nach oben geschehen.(bin mir nicht sicher ob der Code sonst ein Ende findet?!)
Danke im Voraus!