Clean this Recorded Macro - Please Help?

[mwalls33]

All - I know this Macro can be cleaned - can someone please help me? I also wanted to know if I can change the value of my H and AH columns to only auto fill based from the value of number rows on B. Thank you so much!!!

Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("B2").Select
    Windows("ChangeRequest.xlsx").Activate
    Range("C2:D2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("hum_cwk_info.csv").Activate
    ActiveSheet.Paste
    Range("H2").Select
    Windows("hum_cwk_info.csv").Activate
    Windows("ChangeRequest.xlsx").Activate
    Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("hum_cwk_info.csv").Activate
    Range("J2").Select
    ActiveSheet.Paste
    Range("H2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H350")
    Range("H2:H350").Select
    Windows("ChangeRequest.xlsx").Activate
    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("hum_cwk_info.csv").Activate
    Range("AG2").Select
    ActiveSheet.Paste
    Range("AH2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "C"
    Range("AH2").Select
    Selection.AutoFill Destination:=Range("AH2:AH350")
    Range("AH2:AH350").Select
    Range("AD8").Select
    Windows("hum_cwk_info.csv").Activate
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Windows("Interface 1.xlsm").Activate