Scrape Next pages on Amazon Site

[leprince2007]

Hello everybody,
Could you help me in my question ,please?
The code in my file searches amazon site for a product and gets the following data "name-price-link" in order to find the cheapest offer.The code gets data of first search page only.
The question:
How to make the code navigate to other pages in Amazon to get data of products from?
VBA & Selenium

My Code:
`Private ch As New Selenium.ChromeDriver
Sub scrapnet2()

Dim FindBy As New Selenium.By:   Dim items As Selenium.WebElements
Dim item As Selenium.WebElement: Dim keys As New Selenium.keys
Dim pager As Selenium.WebElement
 Application.ScreenUpdating = False
Application.EnableEvents = False

'============================================================
'Clear Result Range
ThisWorkbook.Sheets("Data").Activate
a = [a10000].End(xlUp).Row
If a = 2 Then a = 3
Range("a3:c" & a).ClearContents
searchcell = [b1]
counter = 0
'============================================================
'personal profile

ch.Start

ch.Get "https://www.amazon.eg/-/en/"

'============================================================
'search box
If Not ch.IsElementPresent(FindBy.ID("twotabsearchtextbox"), 3000) Then
'ch.Quit
MsgBox "Could not find search input box", vbExclamation
'Exit Sub
End If
ch.FindElementById("twotabsearchtextbox").SendKeys searchcell
'============================================================
'click search button
'if there is no search button ,press enter key
If Not ch.IsElementPresent(FindBy.ID("nav-search-submit-button")) Then
'ch.Quit
'MsgBox "Could not find submit button", vbExclamation
'Exit Sub
ch.FindElementById("twotabsearchtextbox", 3000).SendKeys (keys.Enter)
Else
ch.FindElementById("nav-search-submit-button", 3000).Click
End If

'============================================================
'loop all product items
Set items = ch.FindElementsByClass("s-card-container")

If items.Count = 0 Then
    ch.Quit
    MsgBox "Nothing at all was found", vbExclamation
    Exit Sub
End If
i = [a10000].End(xlUp).Row
If i = 2 Then i = 3
For Each item In items
'bb = item.FindElementByClass("a-size-base-plus").Text
'ff = bb.Count
 On Error Resume Next
If item.FindElementByClass("a-size-base-plus").Text <> "" Then
ff = item.FindElementByClass("a-size-base-plus").Text
Else
ff = item.FindElementByClass("a-size-medium-plus").Text
End If
        gg = item.FindElementByClass("a-link-normal").Attribute("href")
        Cells(i, 1) = ff
        Cells(i, 2) = item.FindElementByClass("a-price-whole").Text
        Cells(i, 3).Select
        ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=gg, SubAddress:="", ScreenTip:="", TextToDisplay:="Goto Link"
        i = i + 1
Next item

'============================================================
'loop through all pages
'Set pager = ch.FindElementByXPath("///*[@id='search']/div[1]/div[1]/div/span[3]/div[2]/div[51]/div/div/span/a[3]")
' pager.Click

gg = ""

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
`

==================================================================================

please help me
Vba and Selenium to scrap Amazon products.zip