Office: (Office 365) Verkettung von Zellen - Schleife

Hallo,
folgendes Problem:
Ich möchte in einer Tabelle die Texte in Spalte A mit den Texten in Spalte B verketten.

Dazu benutze ich folgenden Code:
Sub VerkettungAB()
Range("E2").Value = Range("A2").Value & " " & Range("B2").Value
End Sub
funktioniert. Was ich nicht hinkriege, ist die Schleife, damit das bis zum Ende der Tabelle gemacht wird.

Kann mir jemand helfen?

Danke

 

Hallo,

so:

Sub VerkettungAB()
Dim i As Long
For i = 2 To 15000 'Ende d. Tabelle
Cells(i, 5) = Cells(i, 1) & " " & Cells(i, 2)
Next i
End Sub

Gruß Sigi

 

Funktioniert prima

Danke vielmals