Redigering af VBA Script

Hej Experter

@mowi har tidligere lavet denne til mig i http://www.eksperten.dk/spm/808636

Sub CollectData()

    Dim wks As Worksheet, NextRow As Integer

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

Nu vil jeg gerne have redigeret den så den virker lidt mere avarangeret.

dette script ligger i et excel skema med navnet "liste til import" og den skal samle resultatet i ark "komplet liste"

Datane skal hentes fra skemaet "komplet mailliste" og den skal på samme måde som denne, hente alt andet end linie 1, og den skal ikke hente arket "ugeplan"

Kan det lade sig gøre?