Filtrere data med avanceret filtrer i excel inde fra word

Denne kode kører jeg inde fra excel.
Sub AVfilter()
'

' Avanceretfilter Makro

'

'
    Sheets("Data").Select
    Range("C3").Select
    Range("A1:DW500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Sheets("Filter 1").Range("A1:J500"), CopyToRange:=Sheets("Dataark").Range("A2"), Unique:=False

    Range("A2").Select

End Sub





Sådan ser mit excel ark altså ud:

Ark 1 = listeområde "A1:DW500"),
ark 2 = kriterieområde("A1:J500"),
ark 3 = kopier til.


Flg kode bliver afviklet, når et worddokument åbnes.


Sub SetFlet1Kvartal()
'
'
' Test antal rækker i databasen
'
    Dim rk As Integer
    On Error Resume Next
    Set xlapp = GetObject(, "Excel.application")
    If Err.Number <> 0 Then
      Set xlapp = CreateObject("excel.Application")
    End If
    xlapp.Workbooks.Open FileName:="K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls"
    xlapp.Visible = False
    rk = xlapp.ActiveWorkbook.Sheets(1).Range("c65536").End(xlUp).Row
    xlapp.ActiveWorkbook.Saved = True
    xlapp.ActiveWorkbook.Close
    Set xlapp = Nothing
'
' Åbnbrevfletdatabase Makro
'
'
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls;Mode=Read;Extended Properties=""HD" _
        , SQLStatement:="SELECT * FROM `Dataark$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess '

' Doctype Makro
'
'
   
    ActiveDocument.MailMerge.MainDocumentType = wdCatalog

'
' Nytdoc Makro
'
'

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = rk - 1
        End With
        .Execute Pause:=False
    End With
'
' LukhovedFletDoc Makro
'
    Windows("Seneste notater elektriske maskiner og hjælpemidler, 1. kvartal") _
        .Activate
    ActiveWindow.Close SaveChanges:=False

End Sub

Jeg vil gerne afvikle excel koden inde fra word sammen med min øvrige kode i en kode. Kan det lade sig gøre?