vaste data naar alle tabblden kopieren

[vrouw]

Hallo,

Ik heb onderstaande code (met dank aan Cobbe) kunnen maken.
Nu wil ik er eigenlijk ook nog inmaken dat hij regel 1 (zijn kolomkoppen) ook kopieert naar ieder nieuw aangemaakt tabblad.
Dat zijn dan dus 2 kopieerakties. Als ik een tweede kopieeraktie opgeef veergeet hij de eerste.
Ik krijg dat niet voor elkaar.

Sub Copy_to_new_Sheet()

Application.ScreenUpdating = False

    Range(ActiveCell.Address & ":" & Cells(ActiveCell.Row, 255).End(xlToLeft).Address).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        Columns("A:A").EntireColumn.AutoFit
        Range("A10").Select
        Sheets("Data").Select
        Application.CutCopyMode = False
      
End Sub

 

[HSV]

Bv:

  Union(Range("A1", Cells(1, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column)), Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, Columns.Count).End(xlToLeft))).Copy

 

[vrouw]

Bedankt voor het meedenken en je reactie :thumb:
Maar als ik die regel nu invoer in mijn macro word regel 1 niet ook op regel 1 in het nieuwe tabblad geplakt.

 

[HSV]

Nagal wiedes als je transpose wegschrijft.
Je bent al een poosje geregistreerd, dus een voorbeeld bestand was beter geweest.