2003 Macro is not running fine in 2010 why?

Hi

I have a macro which i am trying to use in excel 2010 its not working fine(2003 working fine), its taking so much of time and result is not responding. Due to the ms office update i am suffering to use those macros.

May be having solutions but i am not aware of it, Suggest me how to use those macros again, Thank you in advance.

Macro states like this.

I am using this macro to grab data from website.
sheet1 contains only links
sheet2 will be the data grabbed
sheet3 will be like temp.,
I tried using xlsm also but still its not responding.

Sub Macro2()
a = 1
Sheets(3).Select
While Sheets(1).Cells(a, 1) <> ""
urladdress = "URL;" & Sheets(1).Cells(a, 1).Text

With ActiveSheet.QueryTables.Add(Connection:= _
urladdress, Destination:=Range( _
"$A$1"))
.Name = Right(Sheets(1).Cells(a, 1).Value, 80)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
'.WebTables = "1,""wedstrijdTable2"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


Range("A1").Copy Sheets(2).Cells(a, 1)
Range("A2").Copy Sheets(2).Cells(a, 2)
Range("A3").Copy Sheets(2).Cells(a, 3)
Range("A4").Copy Sheets(2).Cells(a, 4)
Range("A5").Copy Sheets(2).Cells(a, 5)
Range("A6").Copy Sheets(2).Cells(a, 6)
Range("A7").Copy Sheets(2).Cells(a, 7)


a = a + 1
Sheets(3).Cells.ClearContents
Wend
End Sub

here is the code i am using.