Creating Wrong "End Sub"

[DevulskyA]

Public Sub ImportDoc()
    
End Sub '<--- ERROR Created by RUBBERDUCK

Dim Ret As Long
  
   
Dim FileName As String
FileName = "MODELO_DE_EDITAL.docm" 
'PathSHAREPOINT = "\\MODELS\exemple.docx" ' Local principal mas...
 'PathF = "\\fsadm1\SAD\COMP\5 - SEEDI\MODELOS\EDITAIS\" 

(...) ' Code

End Sub

Version 2.2.0.3505
OS: Microsoft Windows NT 10.0.17134.0, x64
Host Product: Microsoft Office 2016 x64
Host Version: 16.0.4717.1000
Host Executable: WINWORD.EXE