plotting – logarithmic scale in the legend of a GeoRegionValuePlot

Is there a way to make bar legends display values ​​1 to 9000 using a logarithmic scale that Mathematica automatically gives me? Here is my plot:
enter the description of the image here
The data I use:

geoVal = {Entity["AdministrativeDivision", {"Alaska", "UnitedStates"}] ->
9033, entity["Country", "Albania"] -> 1,
Entity["Country", "Algeria"] -> 1,
Entity["Country", "Argentina"] -> 48,
Entity["Country", "Australia"] -> 588,
Entity["Country", "Austria"] -> 39,
Entity["Country", "Bahamas"] -> 2,
Entity["Country", "Bangladesh"] -> 2,
Entity["Country", "Belgium"] -> 25,
Entity["Country", "Bolivia"] -> 3,
Entity["Country", "BosniaHerzegovina"] -> 1,
Entity["Country", "Brazil"] -> 114,
Entity["Country", "Bulgaria"] -> 7,
Entity["Country", "Canada"] -> 1119,
Entity["Country", "Chile"] -> 25,
Entity["Country", "China"] -> 12,
Entity["Country", "Colombia"] -> 11,
Entity["Country", "CostaRica"] -> 5,
Entity["Country", "Croatia"] -> 12,
Entity["Country", "Cuba"] -> 1,
Entity["Country", "CzechRepublic"] -> 15 years
Entity["Country", "Denmark"] -> 103,
Entity["Country", "Ecuador"] -> 2,
Entity["Country", "Egypt"] -> 3,
Entity["Country", "ElSalvador"] -> 2,
Entity["Country", "Estonia"] -> 11,
Entity["Country", "FaroeIslands"] -> 2,
Entity["Country", "Finland"] -> 126,
Entity["Country", "France"] -> 89,
Entity["Country", "Germany"] -> 293,
Entity["Country", "Greece"] -> 10,
Entity["Country", "Guatemala"] -> 2,
Entity["Country", "Guyana"] -> 1,
Entity["AdministrativeDivision", {"Hawaii", "UnitedStates"}] ->
9033,
Entity["Country", "Honduras"] -> 1,
Entity["Country", "Hungary"] -> 22,
Entity["Country", "Iceland"] -> 6,
Entity["Country", "India"] -> 28,
Entity["Country", "Indonesia"] -> 8,
Entity["Country", "Iran"] -> 1, entity["Country", "Ireland"] -> 77,
Entity["Country", "Israel"] -> 26,
Entity["Country", "Italy"] -> 61,
Entity["Country", "Jamaica"] -> 1,
Entity["Country", "Japan"] -> 27,
Entity["Country", "Kazakhstan"] -> 1,
Entity["Country", "Kenya"] -> 1, entity["Country", "Latvia"] -> 6,
Entity["Country", "Lebanon"] -> 2, entity["Country", "Libya"] -> 1,
Entity["Country", "Lithuania"] -> 6,
Entity["Country", "Macedonia"] -> 2,
Entity["Country", "Malaysia"] -> 13,
Entity["Country", "Malta"] -> 2,
Entity["Country", "Mauritius"] -> 1,
Entity["Country", "Mexico"] -> 74,
Entity["Country", "Myanmar"] -> 2,
Entity["Country", "Netherlands"] -> 105,
Entity["Country", "NewZealand"] -> 129,
Entity["Country", "Norway"] -> 68, entity["Country", "Oman"] -> 1,
Entity["Country", "Pakistan"] -> 1,
Entity["Country", "Panama"] -> 3,
Entity["Country", "Paraguay"] -> 1,
Entity["Country", "Peru"] -> 11,
Entity["Country", "Philippines"] -> 28,
Entity["Country", "Poland"] -> 65 years
Entity["Country", "Portugal"] -> 29,
Entity["Country", "PuertoRico"] -> 3,
Entity["Country", "Romania"] -> 8,
Entity["Country", "Russia"] -> 18 years old
Entity["Country", "SaudiArabia"] -> 1,
Entity["Country", "Serbia"] -> 7,
Entity["Country", "Singapore"] -> 27,
Entity["Country", "Slovakia"] -> 6,
Entity["Country", "Slovenia"] -> 6,
Entity["Country", "SouthAfrica"] -> 21,
Entity["Country", "SouthKorea"] -> 6,
Entity["Country", "Spain"] -> 60, entity["Country", "Sudan"] -> 2,
Entity["Country", "Sweden"] -> 115,
Entity["Country", "Switzerland"] -> 18 years old
Entity["Country", "Syria"] -> 1,
Entity["Country", "Thailand"] -> 3,
Entity["Country", "TrinidadTobago"] -> 6,
Entity["Country", "Turkey"] -> 6,
Entity["Country", "Ukraine"] -> 9, entity["Country", "UAE"] -> 3,
Entity["Country", "UK"] -> 1285, entity["Country", "USA"] -> 9033,
Entity["Country", "Uruguay"] -> 4,
Entity["Country", "Venezuela"] -> 8,
Entity["Country", "Vietnam"] -> 7,
Entity["Country", "Zimbabwe"] -> 1};

and my parcel is generated with:

GeoRegionValuePlot[geoVal, ColorFunctionScaling -> False, 
 ColorFunction -> (ColorData[{"BrightBands", {9, 0}}][
     Log@QuantityMagnitude@#]    &)
GeoBackground -> {"Littorals", "Earth" -> White, "Border" -> Gray},
GeoProjection -> "Robinson"]

I've tried using PlotLengends-> BarLegends and to use the color function I've specified and set the min values ​​for 1 and 10,000, but this has created a legend almost completely red. I was trying to base my code on this post that I found:
https://community.wolfram.com/groups/-/m/t/854271
but even just copying and pasting his code I could not generate the graph that he had posted, and the legend of the plot was a long way off. I had to play with the color function until I found one that, in my opinion, demonstrates the range of frequency values ​​well.

Not related to the PlotLegends issue, but if anyone knows a more effective way of including Alaska and Hawaii in the chart in addition to adding it manually with the frequency value for them. United States, it would be very appreciated.