"Sub" がありません。

Sub プロシージャが End Sub ステートメントで終了せずに、End キーワードで終了しています。Sub プロシージャは、必ず End Sub ステートメントで終了します。

このエラーを解決するには

Sub プロシージャを End Sub ステートメントで終了します。

参照

Sub ステートメント | Call ステートメント | Dim ステートメント | Exit ステートメント | Function ステートメント