Automating the extraction of yahoo finance financials using VBA error Subscript Out Of Range

Question

Hello first of all I am very new to VBA. I have this code for extracting financials from yahoo finance. I am trying to automate this for tickers formatted in a list A1:A500.