When translating using DeepL in Excel macros, I want to translate English sentences as a whole in the cell, not as a period.

SubTranslate()

    Application.ScreenUpdating=False
    Application.Calculation=xlCalculationManual
    Dim Sh_1 As Worksheet
    Set Sh_1=Works("###########")
    Dimie As Object
    Setie=CreateObject("InternetExplorer.Application")
    ie.Visible=True
    Dim lastRow_1 As Long
    lastRow_1 = Sh_1.Cells(Rows.Count, 3).End(xlUp).Row
    Dim loop_1 As Long
    Dim S_English As String
    Dim S_wayaku As String

    For loop_1 = 3 LastRow_1
        S_english=Sh_1.Cells(loop_1,3).Value
        ie.navigate "https://www.deepl.com/ja/translator#en/ja/" & WorksheetFunction.EncodeURL(S_english)

        Do Whileie.BusyOrie.readyState<>4:DoEvents:Loop
        Do
            S_wayaku=ie.document.getElementsByClassName("lmt_target_textarea")(0).innerText
        Loop Until S_wayaku<>"
        Sh_1.Cells(loop_1,4).Value=S_wayaku
        Debug.Print loop_1
    Next

    ie. Quit'ie terminated
    Application.Calculation=xlCalculationAutomatic
    Application.ScreenUpdating=True

    MsgBox ("wd")

End Sub