我的Web查询适用于Excel，但不适用于VBA

I can run the Web Query from excel spreadsheet but when I put into VBA then it gets no data. Here is what a row of data looks like and the date is all in one column. The date has a quote in front that I want to remove but I will do it within VBA if I have to.I can run the Web Query from excel spreadsheet