Ændre VBA script

Hej

Jeg har lavet en mild redigering af et script jeg har fået lavet heninde.
Man det virker ikke helt

Jeg skal have udbygger denne således at hvis wks.name er er "Ark1" eller "Totalliste" skal den kopier alt

Jeg forventer at følgende linie kan udbygges

If Not wks.name = "Totalliste" Then

kan denne linie udbygges til også at omhandle "Ark1"??

Sub CollectData()
    Dim wks As Worksheet, NextRow As Integer

    Application.ScreenUpdating = False
    Sheets("Totalliste").Select
    Range("A2:d60000").Select
    Selection.Delete Shift:=xlUp
    For Each wks In Worksheets
        If Not wks.Name = "Totalliste" Then
            wks.Activate
            Range("A2:D2").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Worksheets("Totalliste").Activate
            NextRow = Range("A65536").End(xlUp).Row + 1
            Cells(NextRow, 1).Activate
            ActiveSheet.Paste
        End If
    Next wks
 
    Application.ScreenUpdating = True
End Sub