粘貼後移動一個範圍

Question

所以我正在尋找一個按鈕，點擊複製並粘貼範圍從一張紙到另一張紙，隨後的點擊將粘貼數據，覆蓋前一張粘貼的數據。到目前爲止，我已經寫了這段代碼，但是我一直在改變如何更改粘貼數據的位置。

Sub CommandButton1_Click() 
    Application.ScreenUpdating = False 
    Static cnt As Long 
    cnt = cnt + 1 
    Me.CommandButton1.Caption = "I have been clicked " & cnt & " times" 
    Worksheets("Main").Range("A1:J13").Copy 
    Worksheets("Secondary").Range("A1:J13").PasteSpecial xlPasteValues 
    Application.ScreenUpdating = True 
End Sub 

Answer 1

Worksheets("Secondary").Cells(Rows.Count,1).End(_ 
    xlUp).Offset(1,0).PasteSpecial xlPasteValues 

假設總有每一行可樂的值。

Answer 2

嘗試這樣：

Worksheets("Secondary").Range("A1:J13").Offset(cnt*Range("A1:J13").Columns.count,0).PasteSpecial xlPasteValues 

或

Worksheets("Secondary").Range("A1:J13").Offset(0,cnt*14).PasteSpecial xlPasteValues