Excel 2010 VBA Schleife mit Bedingungen

Hallo,

Sorry ich stehe sowas von auf dem Schlauch das mir die einfachsten Sachen nicht mehr einfallen.
Ich habe eine Tabelle (Wert_xxy) wo ich in Spalte A Zahlen eintrage, diese müssen in Spalte B ergänzt werden und in Spalte C soll aus einer anderen geschlossenen Datei (Test.xlsx) ein wert mittels Sverweis zurückgegeben werden.

Anhand des Beispieles habe ich es mit normalen Formeln geschaft, aber die Schleife soll solange durchlaufen bis in Spalte A kein Wert mehr steht.

Würde über eine Hilfe mich freuen.

Sub Process()
  With ActiveSheet
    for each cell in .Range("A2:A" & .Cells(Rows.Count,"A").End(xlUp).Row)  
        if cell.Value > 0 then
           cell.Offset(0,1).Value = "A0000000" & cell.Value  
        else
           cell.Offset(0,1).Value = 0
        end if
    Next   
  End with
End Sub