First error appears in .Refresh BackgroundQuery:=False (Ln 89). This happens in the first attempt to run through the code using step by step F8. So no data is in Sheet1, and it's on line 1.
Dragging the arrow down to End Sub and pressing play gives a 2nd error on Ln 92.
findmatch = Application.Match("1st", Sheets("Sheet2").Range("B1:B100"), 0)
Which is kindof obvious since in the first error it was unable to open the url and therefor Sub Pulldata can't pull any data.
Again no lines are added in sheet1.
Since the query doesn't run until I run the line .Refresh BackgroundQuery the error can be any place in there. Though I doutbt It's the case since yours is working fine D:
Answers and suggestions I've searched for includes proxy settings, inet connection, etc. Rewriting the url using path, but I'll have to look at it tomorrow
Edit: First thing in the morning a4u2fear!