Copy&Paste celler i en tom række celler på et andet faneblad

kopierer værdier og formler:

Sub kopier()
Sheets("Ark1").Range("A1:R1").Copy Sheets("Ark2").Cells(Cells(65500, 1).End(xlUp).Row + 1, 1)
End Sub

kopierer kun værdier:

Sub xCopy()
Application.ScreenUpdating = False
Sheets("Ark1").Select
Range("A1:R1").Select
Selection.Copy
Sheets("Ark2").Select
Cells(Cells(65500, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Ark1").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub

*

hvordan går det ?

*

?

for at lukke skal du markere box med navn og klikke accepter