Fusionner 2 feuilles

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/07/2012 par Staple1600
'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Listing salariés.xlsx").Activate
    Range("C1").Select
    ActiveSheet.Paste
    Windows("Anciens salariés.xlsx").Activate
    Windows("Nouveaux salariés.xlsx").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Listing salariés.xlsx").Activate
    Range("C317").Select
    ActiveSheet.Paste
    Rows("317:317").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("C1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("C1:C454").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Sub a()
Dim wbk As Workbook: Set wbk = Workbooks("Nouveaux salariés.xlsx")
Dim r1, r2, r3, fin&
Set r1 = Workbooks("Anciens salariés.xlsx").Sheets(1).[A1].CurrentRegion
Set r2 = wbk.Sheets(1).Range("A2:A" & wbk.Sheets(1).[A65536].End(xlUp).Row)
Set r3 = Workbooks("Listing salariés.xlsx").Sheets(1).[A1]
'recopie des feuilles dans Listing salariés
r1.Copy r3
fin = Workbooks("Listing salariés.xlsx").Sheets(1).[A65536].End(xlUp).Row + 1
r2.Copy Workbooks("Listing salariés.xlsx").Sheets(1).Cells(fin, "A")
'suppression des doublons et tri alpha
With Workbooks("Listing salariés.xlsx").Sheets(1)
    .Range("A1").CurrentRegion.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    .Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
            "B1"), Unique:=True
    With .Columns("B:B") ' mise en forme
    .Columns.AutoFit
    .Font.Name = "Arial"
    .Font.Size = 10
    End With
End With
End Sub

Je n'arrive pas à les regrouper dans un seul tableau et qu'il se mettent pas ordre alpha....

Sub MaPremiereMACRO()
Dim JeSuis As String, MonMessage As String
JeSuis = Application.UserName
MonMessage = "Bonjour à toi, " & JeSuis & vbCrLf & vbCrLf
MonMessage = MonMessage & "Nous sommes le: " & Date & ", il est: " & Time
MsgBox MonMessage, vbInformation, "Test"
End Sub

Sub WE_ARE_ANONYMOUS()
Dim EXEMPLE As Workbook:Set EXEMPLE = Workbooks.Add(xlWBATWorksheet)
With EXEMPLE.Sheets(1)
With .Range("A1:B1")
    .Value = Array("NOMS", "PRENOMS")
    .Font.Bold = True
End With
    With .Range("A2:A50")
        .FormulaLocal = "=""NOM""&LIGNE()-1"
        .Value = .Value
            With .Offset(, 1)
            .FormulaLocal = "=""Prenom""&LIGNE()-1"
            .Value = .Value
            End With
    End With
End With
End Sub