Nieuw tabblad maken en gegevens overnemen in samenvattig

[LennyJ]

Ik probeer het volgende te bereiken:

Ik heb een blanco format voor een tabblad met detailgegevens van een aanvraag. Dit tabblad moet gekopieerd worden naar een nieuw tabblad en een aantal gegevens moeten automatisch overgenomen worden op het samenvattingsblad. Op dat samenvattingsblad moet dus een nieuwe regel aangemaakt worden die dezelfde opmaak als die er boven heeft waarbij het volgnummer van de aanvraag wordt doorgenummerd (normaal selecteer ik die cellen en sleep ik ze een regel naar beneden met het zwarte vierkantje).
Het nieuwe tabblad zou de naam moeten krijgen van het nieuw aangemaakte aanvraagnummer in het samenvattingstabblad.

Via marco opnemen ben ik tot het volgende gekomen wat op zich werkt, maar slechts 1 keer. Hij snapt niet dat hij telkens naar de onderste gevulde regel moet gaan en die rij moet kopieren. Hij blijft dezelfde rij kopieren.

De macro ziet er zo uit:

Sub Nieuw_dossierformulier()
'
' Nieuw_dossierformulier Macro
' Creeren nieuw tabblad dossierformulier en koppeling gegevens
'

'
    Range("A4").End (xlDown)
    Selection.AutoFill Destination:=Range("A34:W35"), Type:=xlFillDefault
    Range("A34:W35").Select
    Range("F39").Select
    Sheets("dossierfomulier blanco").Select
    Sheets("dossierfomulier blanco").Copy Before:=Sheets(4)
    Sheets("2016 tijdlijnen overzicht").Select
    Range("A35").Select
    Selection.Copy
    Sheets("dossierfomulier blanco (2)").Select
    Sheets("dossierfomulier blanco (2)").Name = "nieuw"
    Range("C44").Select
    ActiveWindow.SmallScroll Down:=-24
    Sheets("2016 tijdlijnen overzicht").Select
    Range("B35").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "='dossierfomulier blanco'!R[-27]C[1]"
    Range("C35").Select
    ActiveCell.FormulaR1C1 = "='2016-32'!R[-25]C"
    Range("D35").Select
    ActiveCell.FormulaR1C1 = "='2016-32'!R[-25]C[-2]"
    Range("D35").Select
    Selection.NumberFormat = "0"
    Range("E35").Select
    ActiveCell.FormulaR1C1 = "='2016-32'!R[-22]C[-3]"
    Range("F35").Select
    ActiveCell.FormulaR1C1 = "='2016-32'!R[-19]C[-4]"
    Range("G35").Select
    ActiveCell.FormulaR1C1 = "='2016-32'!R[-17]C[-5]"
    Range("J35").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]+R[-33]C"
    Range("J36").Select
    Sheets("2016 tijdlijnen overzicht").Select
End Sub
Sub test_2()
'
' test_2 Macro
' proberen we nog een keer
'

'
    Range("A7").Select
    Selection.End(xlDown).Select
    Range("A35:W35").Select
    Selection.AutoFill Destination:=Range("A35:W36"), Type:=xlFillDefault
    Range("A35:W36").Select
    Range("I41").Select
    Sheets("dossierfomulier blanco").Select
    Sheets("dossierfomulier blanco").Copy Before:=Sheets(9)
    Sheets("dossierfomulier blanco (2)").Select
    Sheets("dossierfomulier blanco (2)").Name = "nieuwetest"
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("2016 tijdlijnen overzicht").Select
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=nieuwetest!R[-28]C[1]"
    Range("C36").Select
    ActiveCell.FormulaR1C1 = "=nieuwetest!R[-26]C"
    Range("C37").Select
End Sub