With[{ds=ResourceData@ResourceObject["Fireballs and Bolides"]},ds[ReverseSortBy[#Altitude&]/*(;;5)]]
Out[]=
In[]:=
With[{ds=ResourceData@ResourceObject["Fireballs and Bolides"]},GeoListPlot[ds[ReverseSortBy[#Altitude&]/*(;;10),"NearestCity"],GeoLabelsTrue]]
Out[]=