Macro // invoegen x aantal kolommen afhankelijk van celwaarde

[Redmachine]

Goedeavond,

Ik ben opzoek naar een macro voor het invoegen van een x aantal kolommen in een sheet. De x wordt bepaald door een waarde in een cel. Ik kom er niet uit en het bezorgt mij hoofdpijn.

Concreet:
in cel A1 staat bijvoorbeeld 4. Ik wil dat als ik op de knop druk, er vanaf kolom F 4 kolommen worden ingevoerd en de inhoud in kolom F wordt gekopieerd (opmaak, ed.).

Ik heb een voorbeeld bestand toegevoegd.Bekijk bijlage voorbeeld1.xlsm

Alvast super bedankt!

Groet

 

[VenA]

Geen idee wat het nut is maar zal dit werken?

Sub VenA()
[f3:f10].Copy [g3].Resize(, [a1])
End Sub

 

[Ginger]

Had je dit voor ogen?

Sub MaakKopieKolom()

    With ActiveSheet
        .Columns("F:F").AutoFill Destination:=Columns("F:F").Resize(, .Cells(1) + 1), Type:=xlFillCopy
    End With

End Sub

[EDIT] Komt op hetzelfde neer als de oplossing van V&A...

 

[Redmachine]

Thxs beide! Precies wat ik zoek!
In mijn bestand is het heel logisch.