Excel VBA, Stock Web Crolling from Naver, version 2

Sub stock_v2()

    Dim ie As InternetExplorer
    Dim strURL As String
    Dim i As Integer

    Dim start_time As Single
    Dim end_time As Single
    
    start_time = Timer  '시작 시각
    
    Range(Range("D3"), Range("D3").End(xlDown)).ClearContents

    For i = 3 To Range("C1000").End(xlUp).Row
        Set ie = CreateObject("InternetExplorer.application")
        strURL = "https://finance.naver.com/item/coinfo.nhn?code=" & Range("C" & i)
        ie.Navigate strURL
        ie.Visible = False
        Do While (ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy = True)
            DoEvents
        Loop
        Application.Wait (Now + TimeValue("00:00:01"))  '1초 대기
        Range("D" & i) = ie.document.getElementById("nowVal_td_0").innerText    '현재 주가
        ie.Quit
        Set ie = Nothing
    Next i
    
    end_time = Timer  '종료 시각
    MsgBox Round(end_time - start_time) & "초 소요되었습니다."
    
End Sub