Copy and paste a range of cell values into another sheet with VBA and using Offset

Question

I want to copy and paste values from one sheet to another via button assigned to a macro. And every time I hit the button the pasted values should skip some rows so it doesn't paste on the previous values. Below is my code so far, the problem is that the loop never stops. There is probably a better way? maybe a loop isn't the way to do it?

Please post the answer in code if you know, or give me some tips. I would really appreciate it.

Sub Savestrategy()

Dim Bookmark As Integer
Dim positioner As Integer

For Each cell In Range("A2:L20")

    Worksheets("Dashboard").Range("Bookmark").Copy

    Worksheets("Bookmarks").Range("A2").Offset(positioner, 0).PasteSpecial Paste:=xlPasteFormats
    Worksheets("Bookmarks").Range("A2").Offset(positioner, 0).PasteSpecial Paste:=xlPasteValues

    positioner = positioner + 20

    Application.CutCopyMode = False

Next cell

End Sub

Answer 1

Why are you looping? You are not even using the range to loop.

Not tested but you can see where i am going with it. If i knew the range of "Bookmark." I could help you further.

Worksheets("Bookmarks").Range("A2:L20").Offset(20, 0).value = Worksheets("Dashboard").Range(Bookmark).value