Makro - kopier udvalgte celler til andet ark

Hej

Jeg er ret ny i forhold til brug af makroer i Excel og har prøvet at finde en måde at kunne kopier udvalgte celler til et andet ark.

Jeg har en forside ("Ark1") som indeholder nogle felter som skal udfyldes. Når disse er udfyldt så skal man trykke på en knap der så sender dataene til et andet ark ("data"). Planen er efter makroen har kopieret data, så skal cellerne i "Ark1" tømmes.

Jeg har følgende kode, men den melder fejl - jeg har ikke kodet delen med tømning af celler:

Public Sub Kopier()
    Dim Til As Object, Fra As Object, FraCells As Variant, TilCells As Variant, RW As Long, I As Integer
    Dim Tjek As Variant, OK As Boolean
    OK = True
    Set Fra = Sheets("Ark1")
    Set Til = Sheets("data")
   
    FraCells = Array("B3", "F16", "F22", "F29", "F33", "F38", "F44", "F52", "F56")
    TilCells = Array("A2", "D2", "E2", "F2", "G2", "H2", "I2", "J2", "K2")
    RW = Til.Range("A65536").End(xlUp).Row + 1
    If RW < 4 Then RW = 4
   
    Tjek = Til.Range("A2:A" & RW - 1)
    For x = 1 To UBound(Tjek)
        If Tjek(x, 1) = Fra.Range("A2") Then
            OK = False
            Exit For
        End If
    Next

    If OK Then
        For I = 0 To UBound(FraCells)
            Til.Range(TilCells(I) & RW) = Fra.Range(FraCells(I))
        Next
    Else
        MsgBox " nummeret er brugt, tast om"
    End If
End Sub

Håber der er en der kan være behjælpelig med dette.