reeks doorvoeren

[Theophiel]

hallo beste forumleden,

Ik zit een beetje vast met het doorvoeren van een reeks.
De naam van de deelnemer zou moeten doorgevoerd worden zover als kolom A.
Het moet met een macro gebeuren. De tabel wordt steeds verder aangevuld aldus moet de macro hierop aangepast zijn.
Zou er iemand me op het goede pad kunnen helpen?

Bekijk bijlage reeks doorvoeren.xlsm

Alvast bedankt op voorhand!

 

[cow18]

Sub Aanvullen()
    With Sheets("Blad1").Range("A1").CurrentRegion.Resize(, 1)       'huidig gebruikt gebied beperkt tot de A-kolom
        .Offset(1, 3).Resize(.Rows.Count - 1).Value = .Range("D2").Value
    End With
End Sub

 

[Theophiel]

Hartelijk dank voor de snelle reactie!

Ik heb wat geprobeerd voor de volgende doorvoering maar loop weer vast.
Bekijk bijlage reeks doorvoeren.xlsm

 

[cow18]

Sub Aanvullen()
    With Sheets("Blad1")
        Set d = .Range("D" & .Rows.Count).End(xlUp)                  'laatst gebruikte cel in de D-kolom
        Set a = .Range("A" & .Rows.Count).End(xlUp)                  'laatst gebruikte cel in de A-kolom
        d.Resize(WorksheetFunction.Max(1, a.Row - d.Row + 1)).Value = d.Value 'rest van d aanvullen
    End With
End Sub

 

[cow18]

of anders als de opmaak etc ook mee moet, dan kopieren

Sub Aanvullen()
    With Sheets("Blad1")
        Set d = .Range("D" & .Rows.Count).End(xlUp)                  'laatst gebruikte cel in de D-kolom
        Set a = .Range("A" & .Rows.Count).End(xlUp)                  'laatst gebruikte cel in de A-kolom
        d.Copy d.Resize(WorksheetFunction.Max(1, a.Row - d.Row + 1)) 'rest van d aanvullen
    End With
End Sub

 

[Theophiel]

Jullie zijn Geweldig!

Heel erg bedankt, en verder nog PRETTIGE FEESTDAGEN!!!