Automating web extracts to a spreadsheet using a macro

[julius1]

Afternoon everyone, was hoping to get some help on something.

I have a spreadsheet that we have to update manually on a daily basis. Column A is a hyperlink to the active record on the web. Column D is the order number. The extract is incorrect everyda and they can notfind out why. What we are tasked to do daily is to pull this list each day and then manually click on each hyper link (Column A)and then copy the data and then paste it back to the order section (Column D). Is there any way to automate this. I tried to set up a macro and it works fine for a single update, but how can I get it to repeat for all lines. Each spreadsheet has up to 900 lines. Here is the macro I have so far. Can someone take a look at it and let me know how i can make it repeat for all lines. 1-900??

Thanks!

Heres the MACRO

Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
Range("D1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -3).Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SmallScroll Down:=15
Application.WindowState = xlNormal
ActiveWindow.SmallScroll Down:=-18
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveSheet.Paste

julius.gazdag@centurytel.com
Im a Telco guy, I can get you where you want to go, but I can't guarantee it will work when you get there!