[Tasos]

Καλησπέρα σε όλους!
Δημήτρη δεν ξέρω αν το πρόσεξες αλλά η λύση που ζητάς περιέχεται στο συνημμένο που προηγούμενου μηνύματος μου με μια μικρή τροποποίηση στον κώδικα της φόρμας δηλαδή:

Αλλαξε το

Private Const DefaultURL = "URL;http://www.oddsfair.net/index.php"

σε

Private Const DefaultURL = "URL;http://www.oddsfair.net/index.php?today()&league=%&order=timeASC"

Επίσης αντικατέστησε τον κώδικα στοPrivate Sub ImportDataFromWeb() με τον παρακάτω:

Private Sub ImportDataFromWeb()
    Dim OffsetX As String, i As Integer, LastRow As Integer
    OffsetX = "&offset="
    With BaseSheet
        For i = 1 To 1
            DoEvents
            .QueryTables(1).Connection = DefaultURL
            .QueryTables(1).Refresh BackgroundQuery:=False
            SheetAllData.Range("A4:O5000").ClearContents
            LastRow = 4
            MergeData LastRow
            LastRow = BaseSheet.Range("xPage").Rows.Count + 2
        Next
        i = 0
        Do While .Range("xPage").Rows.Count > 2
            DoEvents
            i = i + 20
            .QueryTables(1).Connection = DefaultURL & OffsetX & i
            .QueryTables(1).Refresh BackgroundQuery:=False
            MergeData LastRow
            LastRow = LastRow + BaseSheet.Range("xPage").Rows.Count - 2
        Loop
    End With
End Sub

Καλή συνέχεια!

Τάσος