Makro - Opret nyt faneblad

Dim kildeArk As String, antalRækker As Integer, antalArk As Integer, ræk As Integer
Dim kopiRæk As Integer, kopiArkNr As Integer
Public Sub kopierArk_WU_XV()
    Application.ScreenUpdating = False

    kildeArk = ActiveSheet.Name
    antalRækker = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    antalArk = ActiveWorkbook.Sheets.Count
   
    kopiRæk = 1
   
    Sheets.Add After:=Sheets(Sheets.Count)
    kopiArkNr = Sheets.Count
   
    Sheets(antalArk).Select

    For ræk = 1 To antalRækker
        With ActiveSheet
            If .Range("W" & ræk) <> .Range("U" & ræk) Or _
                .Range("X" & ræk) <> .Range("V" & ræk) Then
                kopierTilNytArk ræk, kopiRæk
           
                kopiRæk = kopiRæk + 1
                Application.CutCopyMode = False
            End If
        End With
    Next ræk
End Sub
Private Sub kopierTilNytArk(ræk, kopiRæk)
    Sheets(kildeArk).Rows(ræk & ":" & ræk).Copy
   
    Sheets(kopiArkNr).Select
    With ActiveSheet
        .Rows(kopiRæk & ":" & kopiRæk).Select
        ActiveSheet.Paste
    End With
   
    Sheets(kildeArk).Select
End Sub