Simplify Macro

[Mathman]

Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("B6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("F18").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("G15").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("I5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormulaR1C1 = "0"
Range("F7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True​

 

[JackDanIce]

Try:

Sub M1()
    
    Dim r   As Range
    
    Application.ScreenUpdating = False
    
    For Each r In Range("A6", "B6", "C6", "F18", "G15", "I5")
        Range(r, r.End(xlDown)).Value = 0
    Next r
    
    Cells(7, 6).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
    Application.ScreenUpdating = True
    
End Sub

 

[Mathman]

I got an error. It highlighted RANGE and said "Wrong number of arguments or invalid property assignment"

 

[Fluff]

Try

    For Each r In Range("A6, B6, C6, F18, G15, I5")

 

[JackDanIce]

Sorry typo, thanks to @Fluff for correction