Range copieeren van sheet x naar sheet y

[oerotter]

Beste,

Onderstaan heb ik geprobeerd een routine te maken maar helaas werkt hij niet!!

Wat ik wil is het volgende
In een sheet wil ik opzoek naar de eerste en laatste cel waar een bepaalde waarde in vermeld staat.
deze rijen wil ik dan gebruiken voor een range
deze range moet dan gecopieerd worden naar een andere sheet
Van de oude sheet moeten deze gegevens dan weer worden verwijderd

Hopelijk was de uitleg voldoende!

Sub VanOpslagNaarTijdelijk()
Dim RangeCopy As Range, DestRange As Range
Dim DestSheet As Worksheet

zoekeersterij = Worksheets("ScoresOpslag").Range("C:C").Find(Worksheets("hulp").Range("A1")).Row
zoeklaatsterij = WorksheetFunction.CountIf(Worksheets("ScoresOpslag").Range("C:C"), Worksheets("Hulp").Range("A1")) + zoekeersterij - 1


    'fill in the Source Sheet and range
    Set RangeCopy = Range(Cells(zoekeersterij, 1).Address, Cells(zoeklaatsterij, 13).Address)
    rangeopslag = RangeCopy.Address
    'Fill in the destination sheet and call the LastRow
    'function to find the last row
    Set DestSheet = Sheets("ScoresTijdelijk")

    'With the information from the LastRow function we can
    'create a destination cell and copy/paste the source range
    Set DestRange = DestSheet.Range("A2")
    
    Worksheets("ScoresOpslag").Range(rangeopslag).Copy
    DestRange.PasteSpecial _
            Paste:=xlPasteValues, _
            operation:=xlPasteSpecialOperationNone, _
            skipblanks:=False, _
            Transpose:=False
    Application.CutCopyMode = False
    
    'Worksheets("ScoresOpslag").Range(rangeopslag).Delete


End Sub