Finds last column value in the first row and makes a date column from it

MakeDateColumn.vba

Sub MakeDateColumn()
    If Range("A1").Value = "Date" Then
        MsgBox "Already have Date column"
        Exit Sub
    End If
    
    With Range("A1:Z1")
        Set c = .Find(2, LookIn:=xlValues)
        If Not c Is Nothing Then
            strDate = c.Value
        End If
    End With
    
    Range("A1").EntireColumn.Insert
    Range("A1").Value = "Date"
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    Range("A2:A" & LastRow) = strDate
End Sub