Hide non continuous rows using a macro

Sub hidecostprices()
'
' hidecostprices Macro
'

'
    Range("47:63,66:82,85:101,104:120,123:139,142:158,161:177").EntireRow.Hidden = True
    
End Sub

oughta be enough