間違えたここまでだった。

Sub Main()
　Dim RowCnt As Long
　
　With ThisWorkbook.Sheets(1)
　　RowCnt = 2
　　Do
　　　If .Cells(RowCnt, 1).Value = "" Then Exit Do
　　　.Cells(RowCnt, 2).NumberFormatLocal = "@"
　　　.Cells(RowCnt, 2).Value = GetISBN(.Cells(RowCnt, 1).Value)
　　　RowCnt = RowCnt + 1
　　Loop
　End With
　
　amazonSearch2
　
End Sub