I have a VBA code importing a txt file and formating it, but I wish to modify the code to only import the latest 50 rows (when new data is added the oldest is removed). I picture a offset function might do the selection before importing, but not sure how to go about this?

this is my code today:

Sub Open_Internet_File()
    
    Application.ScreenUpdating = False
    abok = ActiveWorkbook.Name
    Sheets("Data").Select
    Cells.Select
    Selection.Clear
    Range("a1").Select
    
        Workbooks.Open Filename:="http://research.stlouisfed.org/fred2/data/CPIAUCSL.txt"
        ActiveWindow.Visible = True
        bbok = ActiveWorkbook.Name
        Cells.Select
        Selection.Copy
        Windows(abok).Activate
        ActiveSheet.Paste
        Columns("A:A").Select
        Application.CutCopyMode = False
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
            1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
            , 1))
        Windows(bbok).Activate
        Windows(bbok).Close (False)
    Range("b3").Select
    
        Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        OtherChar:=",", FieldInfo:=Array(Array(0, 1), Array(11, 1)), _
        TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Range("D6").Select

End Sub
Apreciate any help I can get