Boa Tarde Pessoal !!

Tenho o macro abaixo e gostaria de Copiar o texto da celula M2 colar substituir do CopyToRange:=Range("B5:J5"), assim ficaria CopyToRange:=Range("texto da céula m2")

Sub Teste()
'
' Teste Macro
'

'
    Sheets("Filtro").Range("Filtro1[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("PR003!Criteria"), CopyToRange:=Range("B5:J5"), _
        Unique:=False
    Range("B5:J5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range("$B$5:$J$279").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _
        7, 8, 9), Header:=xlYes
End Sub