sub procedurers syntaks - Problem med at kalde sub fra en anden

Hej Med jer

Så er jeg endt i noget snavs.
Jeg tænkte at jeg lige kunne bikse en makro sammen til at sprede nogle data ud i et regneark.
Men der er noget syntaksen for disse sub-procedurer jeg ikke helet er med på. Og Excel giver ikke særlig god feedback eller hjælp.
Mit problem kan ses nederst i koden.
'kopierer data ud
Sub PasteData(StartCelle, SlutArk)
    If Range(StartCelle).Value <> "" Then
        Range(StartCelle).Select
        ActiveCell.Range("A1:D1").Select
        Selection.Copy
        Sheets(SlutArk).Select
        Insert_Row (ny)
        Range("C3").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Paste_NavnOgDato (SlutArk)
        Sheets("Front").Select
        Range(StartCelle).Select
        ActiveCell.Range("A1:D1").Select
        Application.CutCopyMode = False
        Selection.ClearContents
End Sub

'indsætter navn og dato
Sub Paste_NavnOgDato(Arknavn) 
    Sheets("Front").Select
    Range("D2:D3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(Arknavn).Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

'indsætter en række til dataene
Sub Insert_Row(ha) 'ha er med for ellers vil den også her have
                  'et lighedstegn
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
End Sub

'skulle køre en liste med de celler og ark der
'skulle koopieres fra
Sub InsertAllData(test)
'Så'n noget hø
    PasteData("H20", "Felt 1") 'Her vil den have et lighedstegn?
   
End Sub

Håber jeg har vist mit problem rigtigt!