To follow the hyperlink just use
ThisWorkbook.Sheets(1).Range("A1").Hyperlinks(1).Follow
Edit: I've just re-read your question and realised you want to get website data as well. That will rather depend on the site - the technique you need to search for is "VBA Web scraping" and that will get you plenty of examples