Flytte rækker fra rådata til et andet ark

Hej,

Jeg er totalt ny i VBA, men vil gerne lære :) Jeg har et ark1 med "rådata". Rådataen skal klippes og indsættes i ark2 ("salg"), hvis et kriterie er opfyldt:

Der er en rækker værdier i A1:A10 i ark2, f.eks. tallet 2000. Hvis værdien 2000 er at finde i ark1, så skal denne række klippes ud fra ark1 og indsættes i ark2 i række 10. Jeg har fået min makro til at virke ved at referere til absolutte tal, men jeg kan ikke få makroen til at slå op i range A1:A10 i et ark. Desuden har jeg kun fået min makro til at virke ved at "kopiere" fra ark1 til ark2 frem for cut&paste. Min kode er nedenfor (I må ikke grine!).

Jeg er meget taknemmelig, hvis der er noget, der vil hjælpe :)


Public Sub Fordele data()

Dim Tabel(1 To 1000, 1 To 7) As Variant
Dim i As Integer, j As Integer, k As Integer


Application.ScreenUpdating = False

  k = 1
  For i = 1 To 1000

   
ThisWorkbook.Sheets("Rådata").Activate

' Nedenfor vil jeg have at, at man ikke kun kigger på "2053, 2312 og 2081", men kigger på de værdier der ligger i ark2 i range A1:A10.

If ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2053" Or _
ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2312" Or _
ThisWorkbook.Sheets("Rådata").Cells(i, 1).Value = "2081" Then
                 

            For j = 1 To 7
            Tabel(k, j) = Cells(i, j).Value
            Next j
            k = k + 1
            End If
           
            Next i
     
               
            For k = 1 To 1000
            For j = 1 To 7

' Nedenfor bliver data kopieret ind i ark2 ("salg"), men jeg vil have, at det klippes ud og indsættes, så kildedataen i ark1 er væk

ThisWorkbook.Sheets("Salg").Range("A10").Cells(k, j).Value = Tabel(k, j)
 
            Next j
            Next k
 
        ThisWorkbook.Sheets("JP Salg").Activate
        Application.ScreenUpdating = True
       
End Sub