Copy and pasting information from web

[welchy82]

hi i am new to this site and not great at coding most of the bits i know how to do i have stolen, but now i am stuck.

i need to copy and paste information form about 1200 different web address. i have worked out how to do the copy and pasting in to the spreadsheet, but when i add it to the spread sheet it shifting right what i would like it to do is shift down instead or paste it to below when its pasted into the spread sheet

this is the coding i am using at the moment.

Sub Web()
Dim objWeb As QueryTable


Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.nsncenter.co.uk/NSN/5305-00-208-1429", _
Destination:=Range("A1"))


 With objWeb
.WebSelectionType = xlSpecifiedTables
 .WebTables = "2" ' Identify your HTML Table here
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.nsncenter.co.uk/NSN/5310-00-208-9255", _
Destination:=Range("A1"))


 With objWeb
.WebSelectionType = xlSpecifiedTables
 .WebTables = "2" ' Identify your HTML Table here
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.nsncenter.co.uk/NSN/5935-00-221-8620", _
Destination:=Range("A1"))


 With objWeb
.WebSelectionType = xlSpecifiedTables
 .WebTables = "2" ' Identify your HTML Table here
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub