Last Column number in duplicate column headers?

If you need a VBA solution, you could use something like:

Function LastColumnMatch(ByVal FindString As String, ByRef InRange As Range)
    LastColumnMatch = InRange.Find(What:=FindString, SearchDirection:=xlPrevious).Column
End Function