Hide non continuous rows using a macro

Hi,

I have recorded a macro but because my rows are not continuous it is rather jumpy when running. Is there any way to stop this? perhaps selecting all rows and hiding at the one time?

Sub hidecostprices()
'
' hidecostprices Macro
'

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