データの範囲を左にコピーしてペーストし、同じ範囲をコピーして直前のペーストに貼り付けます

Question

私は頻繁に変更されるデータA1：M55の範囲を持っています。私はヒストリカルのスナップショットを撮りたいと思いますレンジのペーストをワークシートの右側の画像として貼り付けます。マクロが実行されるたびに、貼り付けられた最後の画像を1行に貼り付け、貼り付けた各イベントの間に空の行を残します。また、最初のペーストがセルAA：1で発生するようにします。

私が試したものですが、結果に基づいて私は間違ったアプローチを使用しています。

サブCopyHistory2（）

Range("A1:M55").Select 

Selection.Copy 


ActiveSheet.Range(ActiveSheet.UsedRange.Columns.Count + 1).Select 

Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Subの

Answer 1

は私が所望の出力を得るために、複数の質問からのソリューションを組み合わせることができました。

Dim source As Worksheet 
Dim destination As Worksheet 
Dim emptyColumn As Long 

Set source = Sheets("Sheet1") 
Set destination = Sheets("Sheet1") 

'find empty Column (actually cell in Row 1)' 
emptyColumn = destination.Cells(1, destination.Columns.Count).End(xlToLeft).Column 
If emptyColumn > 1 Then 
emptyColumn = emptyColumn + 1 
End If 

source.Range("A1:M55").Copy 

destination.Cells(1, emptyColumn).PasteSpecial xlPasteValuesAndNumberFormats 
destination.Cells(1, emptyColumn).PasteSpecial xlPasteFormats 
Application.CutCopyMode = False