Macro to copy files from folder and sub-folders fails on sub-folders

I am new to the forum and appreciate any assistance. I have been developing VBA code for about 15 years mostly to automate Word forms to utilize information from databases. I am self taught and have little experience working with VBA in Excel. Now I am trying to create a VBA macro that will copy all .csv files from a primary source folder and, then, loop through all of its sub-folders to copy other .csv files to another target directory that will ultimately be used to import that data into a master workbook. The code is comprised of two subs: the first to copy .csv files from the primary source directory and, the second to copy all of the .csv files from each of the sub-directories. The first sub operates flawlessly and deposits files in the target directory but the code in the second sub does not seem to be able to identify the files in the sub-folders. The code appears to run without error and the message box at the end even tells me that the files have been copied but the files from the sub-directories are not deposited in the target folder. All of the files to be copied periodically have the same naming scheme e.g "SR0097.csv", "SR0098.csv". Microsoft Scripting Runtime is turned on. I am using Office 365 on a Windows 10 machine. I don't believe that this is a permissions or security issue because the first sub works on the primary source folder. I feel like my code needs a small tweak but I can't find it. Thanks in advance for any help you can provide. The code is as follows:

Sub copy_specific_files_in_folder()
Dim FSO As Object
Dim sourcePath As String
Dim destinationPath As String
Dim fileExtn As String

sourcePath = "\\SERVER\LabradarData\RawDataForTransfer"
destinationPath = "\\SERVER\LabradarData\ExcelReports"

fileExtn = "*.cs*"

If Right(sourcePath, 1) <> "" Then
sourcePath = sourcePath & ""

End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(sourcePath) = False Then
MsgBox sourcePath & " does not exist"
Exit Sub
End If

If FSO.FolderExists(destinationPath) = False Then
MsgBox destinationPath & " does not exist"
Exit Sub
End If

FSO.CopyFile Source:=sourcePath & fileExtn, Destination:=destinationPath

copy_files_from_subfolders

MsgBox "Your files have been copied from the sub-folders of " & sourcePath & " to " & destinationPath
End Sub

Sub copy_files_from_subfolders()
Dim FSO As Object, fld As Object
Dim fsoFile As Object
Dim fsoFol As Object

sourcePath = "\\SERVER\LabradarData\RawDataForTransfer"
targetPath = "\\SERVER\LabradarData\ExcelReports"
'fileExtn = ".csv"
If Right(sourcePath, 1) <> "" Then sourcePath = sourcePath & ""

Set FSO = CreateObject("scripting.filesystemobject")

Set fld = FSO.GetFolder(sourcePath)

If FSO.FolderExists(fld) Then
    For Each fsoFol In FSO.GetFolder(sourcePath).SubFolders
        For Each fsoFile In fsoFol.Files
            If Right(fsoFile, 3) = ?csv? Then
            fsoFile.Copy targetPath
        End If
        Next
    Next
End If

End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Thank you.