Web scraping 将多个单元格拖动到特定网页，

我编写了一个代码，将单元格e6填充到网站类元素中，然后将一些值复制到单元格d6和c6中

代码工作得很好，但现在我希望检查完整的列

e7           valeus to d7 and c7 

并继续，直到列中有一个空单元格

希望这是可以理解的，我是个荷兰人

以下是我的代码供参考：

Sub RDWGEGEVENS()

'Declaration
Dim ie As InternetExplorer
Dim ieDoc As HTMLDocument

'Browser initialization
Set ie = New InternetExplorer
ie.Visible = False
ie.navigate ("https://www.finnik.nl/kenteken-check/")

'Wait until page loads
Do Until ie.readyState = READYSTATE_COMPLETE
    DoEvents
Loop

'Document initialization
Set ieDoc = ie.document

'Vul het kentekenveld in

        Application.Wait Now() + #12:00:04 AM#                                                      'wait
        Set kentekenFld = ieDoc.getElementsByClassName("license-search")(1)                         'kentekenveld
        kentekenFld.Value = Blad1.Range("e6").Value
        
        '<div id="kenteken_top_input_licenceplate" class="group-input license-plate" style="">      'websitecode
                               
'klik de knop
        
        
        Application.Wait Now() + #12:00:05 AM#                                                      'wait
        Set gegevensophalenBtn = ieDoc.getElementsByClassName("button button-secondary")(0)         'gegevensophalenknop
        gegevensophalenBtn.Click
        
        '<button id="kenteken_top_button" type="submit" class="button button-secondary" style="">   'websitecode
                                
        
'Data ophalen
        
        Application.Wait Now() + #12:00:15 AM#
                      
        '<div class="right" id="value-apk">31-05-2021</div>                                         'apk datum
        
        Blad1.Range("d6") = ieDoc.getElementById("value-historie-apk-vervaldatum").innerText
        
        'Application.Wait Now() + #12:00:01 AM#
        
        
        
        '<div class="right" id="value-historie-datum-aansprakelijkheid">16 april 2009</div>         'datum laatste tenaamstelling
                
        Blad1.Range("c6") = ieDoc.getElementById("value-historie-datum-aansprakelijkheid").innerText
        
        'Application.Wait Now() + #12:00:01 AM#
        
      

ie.Quit

MsgBox ("Alle beschikbare rijen gecontroleerd")

End Sub

Sub-RDWGEGEVENS（）
"宣言",
Dim ie作为InternetExplorer
Dim ieDoc作为HTMLDocument
'浏览器初始化
Set ie=新的InternetExplorer
可见=假
例如，导航（“https://www.finnik.nl/kenteken-check/")
'等待页面加载
直到ie.readyState=readyState\u完成为止
多芬特
环
'文档初始化
设置ieDoc=ie.document
“我是肯特肯菲尔德。”
Application.Wait Now（）+#12:00:04 AM#'等等
设置kentekenFld=ieDoc.getElementsByClassName（“许可证搜索”）（1）“kentekenveld”
kentekenFld.Value=Blad1.Range（“e6”）.Value
“”网站代码
“克里克·德诺普
Application.Wait Now（）+#12:00:05 AM#'等等
设置gegevensophalenBtn=ieDoc.getElementsByClassName（“按钮辅助”）（0）“gegevensophalenknop”
gegevensophalenBtn。单击
“”网站代码
"数据时代"
应用程序。立即等待（）+#12:00:15 AM#
“31-05-2021”apk基准
Blad1.Range（“d6”）=ieDoc.getElementById（“值历史记录apk vervaldatum”）.innerText
'Application.Wait Now（）+#12:00:01 AM#
“2009年4月16日”数据laatste Tenaamstell
Blad1.Range（“c6”）=ieDoc.getElementById（“值历史数据aansprakelijkhide”）.innerText
'Application.Wait Now（）+#12:00:01 AM#
即退出
MsgBox（“所有beschikbare rijen gecontroleerd”）
端接头

我也尝试过：

如果我把代码放在一起，我最多可以做15行。再过一段时间，电脑就会死机

我希望有人能帮忙

你好，约翰