Frage zu Formel mit relativem Bezug

Sub zahl()
Range("A2").Select
ActiveCell.Offset(0, 2).Select
ActiveCell.Formula = "=Concatenate(RC[-2],"" irgendeintext"")"
End Sub

Soweit so gut. Allerdings würde ich gerne den Offset und den Bezug variabel halten und zwar in Abhängigkeit von der Spaltenanzahl. Bsp.: wenn ich fünf Spalten habe, springt Excel von A2 auf F2 und schreibt in F2 den Inhalt von A2 plus irgendeinen Text. Habe dazu mal folgendes entworfen:

Sub zahl()
Dim Columncount As Integer
Columncount = Application.WorksheetFunction.CountA(Range("1:1"))
Range("A2").Select
ActiveCell.Offset(0, Columncount).Select
ActiveCell.Formula = "=Concatenate(RC[-2],"" irgendeintext"")"
End Sub

Habe mehrere Varianten in der vorletzten Zeile mit ActiveCell.Offsets probiert, bekomme aber nur Quatsch in der Zielzelle. Kann man überhaupt RC mit Offset kombinieren oder habt Ihr vielleicht andere Vorschläge?
Besten Dank im voraus!