エクセルのマクロで、csvをワイルドカードを使って検索し、移動したい。

サンプルコードです。CopyCsvFileで呼び出します。
元フォルダに該当のファイルが複数ある場合は、どのファイルがコピーされるかは不定になります。
例えば、ファイル名の中に入っている数字の部分（日付？）が最新のものをコピーする等も可能ですが、もう少し複雑になります。

Const SourcePath As String = "C:\Users\naranara19\Downloads"

Sub CopyCsvFile()
    Dim fileName As String

    fileName = Dir(SourcePath & "\*.csv")
    Do While fileName <> ""
        If fileName Like "??????????????_発行済データ.csv" Then
            FileCopy Source:=SourcePath & "\" & fileName, Destination:=GetDesktopPath() & "\出力用.csv"
            Exit Do
        End If
        fileName = Dir()
    Loop

End Sub

Function GetDesktopPath() As String
    Dim wsh As Object
    
    Set wsh = CreateObject("WScript.Shell")
    GetDesktopPath = wsh.SpecialFolders("Desktop")
    Set wsh = Nothing
    
End Function