delete specific rows in excel sheet3

In my search I am not sure how long the list will go. Can you please help me with such a circumstance to modify the code?

Sub Macro2()
'
' Macro2 Macro
'

'
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=40
    Rows("51:51").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=48
    Rows("101:101").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=44
End Sub