VBA How do I insert a column to the left of a search result in a header?

[Slavio]

This code below adds a column next to the search term in the header on the right. How do I change this to add a column on the left?
Will there be a good soul here that will help me solve the mystery?

At the beginning

Auto	By foot

Current status

Auto	Bike	By foot

Expected result

Bike	Auto	By foot

Sub AddRows()

    Sheets("Sheet1").Select
    Dim rngUsernameHeader As Range
    Dim rngHeaders As Range
          
    Set rngHeaders = Range("1:1") 'Looks in entire first row.
    Set rngUsernameHeader = rngHeaders.Find(what:="Auto", After:=Cells(1, 1))

    rngUsernameHeader.Offset(0, 1).EntireColumn.Insert
    rngUsernameHeader.Offset(0, 1).Value = "Bike"
End Sub

 

[Zot]

Try

Sub AddRows()

    Sheets("Sheet1").Select
    Dim rngUsernameHeader As Range
    Dim rngHeaders As Range
          
    Set rngHeaders = Range("1:1") 'Looks in entire first row.
    Set rngUsernameHeader = rngHeaders.Find(what:="Auto", After:=Cells(1, 1))
    rngUsernameHeader.EntireColumn.Insert
    rngUsernameHeader.Offset(0, -1).Value = "Bike"
End Sub

 

[Slavio]

Try

Sub AddRows()

    Sheets("Sheet1").Select
    Dim rngUsernameHeader As Range
    Dim rngHeaders As Range
         
    Set rngHeaders = Range("1:1") 'Looks in entire first row.
    Set rngUsernameHeader = rngHeaders.Find(what:="Auto", After:=Cells(1, 1))
    rngUsernameHeader.EntireColumn.Insert
    rngUsernameHeader.Offset(0, -1).Value = "Bike"
End Sub

Super Master Zot. thank you for your correct answer It works perfectly!

 

[Zot]

Glad could help