No point repeating all these steps everywhere,
Make it a stand-alone query and other queries reference to it,
// _Data
let
Source = Csv.Document(File.Contents("D:\Downloads\Crime_Data_from_2020_to_Present.csv"),[Delimiter=",", Columns=28, Encoding=1252, QuoteStyle=QuoteStyle.None]),
#"Promoted Headers" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
#"Changed Type with Locale" = Table.TransformColumnTypes(#"Promoted Headers", {{"TIME OCC", type time},{"DATE OCC", type datetime},{"Date Rptd", type datetime},{"AREA", Int64.Type}, {"Crm Cd", Int64.Type}, {"Vict Age", Int64.Type}, {"Premis Cd", Int64.Type}, {"Weapon Used Cd", Int64.Type}}, "en-US"),
#"Replaced Value" = Table.ReplaceValue(#"Changed Type with Locale",null,500,Replacer.ReplaceValue,{"Weapon Used Cd"}),
#"Added Conditional Column" = Table.AddColumn(#"Replaced Value", "TimeOfDay", each {"Morning","Noon","Evening","Night"}{List.PositionOf({12,19,23,24}, Time.Hour([TIME OCC]), 0, (x,y) => x>y)}, type text),
#"Added Conditional Column1" = Table.AddColumn(#"Added Conditional Column", "categorize_age", each {"Child","Adolescent","Young Adult","Middle-Age","Older Adult","Senior"}{List.PositionOf({13,18,30,45,60,150}, [Vict Age], 0, (x,y) => x>=y)}, type text)
in
#"Added Conditional Column1"// Premis
let
Source = _Data,
#"Removed Other Columns" = Table.SelectColumns(Source,{"Premis Cd", "Premis Desc"}),
#"Removed Duplicates" = Table.Distinct(#"Removed Other Columns", {"Premis Desc"})
in
#"Removed Duplicates"
// Status
let
Source = _Data,
#"Removed Other Columns" = Table.SelectColumns(Source,{"Status", "Status Desc"}),
#"Removed Duplicates" = Table.Distinct(#"Removed Other Columns", {"Status Desc"})
in
#"Removed Duplicates"
