Search in every column for a value in a specific row, then insert a column before if match

Please do upload the sample file. What word do you need to match it with? Or did you mean, "if what's in column x row 5 is a word then insert two columns"?

This works if what you want is to add columns every time you have at least 1 character that is a letter, no matter if its lower or upper case:

Option Explicit

Sub InsertCol()
Dim ws As Worksheet
Dim LastCol As Long
Dim CurrentCol As Long

Application.ScreenUpdating = False
For Each ws In Worksheets
    LastCol = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
    CurrentCol = 1
    Do While CurrentCol <= LastCol
        If ws.Cells(5, CurrentCol).Value Like "*[A-z]*" Then
            Cells(5, CurrentCol).EntireColumn.Insert Shift:=xlToRight
            Cells(5, CurrentCol).EntireColumn.Insert Shift:=xlToRight
            CurrentCol = CurrentCol + 2
            LastCol = LastCol + 2
        End If
        CurrentCol = CurrentCol + 1
    Loop
Next ws
Application.ScreenUpdating = True
End Sub