VBA Autofill tot laatste regel werkt niet goed

[leeuwin]

Ik ben beginnend met het werken met VBA.

Ik heb een bestand waarin gegevens importeer vanuit een txt-bestand. Het aantal regels dat geïmporteerd wordt varieert iedere keer.
Aan deze regels moet in kolom A en kolom B d.m.v. formules gegevens worden toegevoegd. Kolom C kan als bepalend worden gezien voor het aantal regels in het bereik.
Na zoeken hier in het forum ben ik gekomen tot de volgende code :

Range("A1").Select
    ActiveCell.FormulaR1C1 = "=afschriftnr+1"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""B"",RC[-1],""-"",ROW(RC[-1]))"
    [COLOR="#FF0000"]Range("A1:B1").AutoFill Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row), xlFillDefault[/COLOR]
    Columns("A:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    End Sub

Echter nu wordt de formule alleen in regel 2 toegevoegd en niet in de overige regels.
Wat doe ik fout ?

 

[Wigi]

In de rode regel moet je kolom C nemen ipv kolom A:

Cells(Rows.Count, 1)

wordt:

Cells(Rows.Count, 3)

of nog:

Cells(Rows.Count, "C")

 

[leeuwin]

Beste Wigi,
Hartelijk dank voor uw reactie.
Als ik het wijzig dan krijg ik een foutmelding na het uitvoeren van de macro :
Fout 1004 tijdens uitvoering
Methode Autofill van klasse Range is mislukt.

Ik voeg mijn bestand ook toe.

 

[Wigi]

leeuwin,

Je moet de Autofill vanaf Range("A1 ... beginnen.

 

[leeuwin]

Hoe simpel kan het soms zijn.

Hartelijk dank voor je antwoorden.

Ik ga weer verder stoeien met mijn ontwerp.