NFL Web Connection for standings

The following VBA code will create a spreadsheet with the NFL standings.

SAS Fifth Dimension Macro-Input Output

Review the following code, copy it to Excel and execute it.

Sub NFL_standings()
   'Copy NFL standings into spreadsheet
    SPORT_NAME = "nfl"
    SELECTED_YEAR = "2010"
    SPORT_URL = "URL;http://sports.yahoo.com/" & SPORT_NAME & "/" & _
                "standings?type=regular&year=season_" & SELECTED_YEAR
    NXT = NXT + 1
    Workbooks.Add
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Name = UCase(SPORT_NAME) & " standings" & "_" & SELECTED_YEAR
    SHEET_NAME = ActiveSheet.Name
    Sheets(SHEET_NAME).Select
    With ActiveSheet.QueryTables.Add(Connection:=SPORT_URL, _
           Destination:=Range("$A$1"))
          .Name = SPORT_NAME & " standings"
          .RefreshStyle = xlInsertDeleteCells
          .RefreshPeriod = 0
          .WebFormatting = xlWebFormattingNone
          .WebDisableDateRecognition = True
          .WebSelectionType = xlSpecifiedTables
          .WebTables = "1,1"
          .BackgroundQuery = False
          .Refresh
    End With
   'Set sheet name
    Columns("M:Q").Select
    Selection.Delete Shift:=xlToLeft
   'Find first consecutive non blank cells in column A
    For II = 1 To 10
        If Cells(II, 1) <> "" Then
           NUM = NUM + 1
           If NUM = 2 Then Exit For
        Else
           NUM = 0
        End If
    Next
    TXT = "1:" & II - 2
   'Delete lines from first to before the consecutive non blank cells in column A
    Rows(TXT).Select
    Selection.Delete Shift:=xlUp
    Cells(1, 1).Select
End Sub