VBA problem med variabler

Hej jeg har lavet følgende kode i et tomt excelark (Book1.xls) til brug ved at åbne et andet ark og fra den aktive celle kopiere de definerede værdier til Book1. Mit problem er at jeg har problemer med at definere variablerne som range, jeg kan ikke få macroen til at køre... Er der nogen der kan hjælpe mig med hvad der er galt med min kode? eller er der nogen der har bedre forslag til hvordan det kan løses er de også meget velkomne.

Sub MinKode()

Dim MyBook As Range
Dim MyStart As Range
Dim Dest As Range

Set MyBook = Workbooks("Book1.xls").ActiveSheet
Set MyStart = MyBook.Range("A1")

If IsEmpty(MyStart) = False Then
    Set Dest = MyStart.End(xlDown).Offset(1, 0)
        Else
            Set Dest = MyStart
End If

With Range(ActiveCell, ActiveCell.Offset(0, 9))
    .Copy Destination:=Dest
End With

End Sub