VBAマクロをExcelにコピーし、毎週セル範囲を別のシートにコピーして貼り付けます

Question

私はVBAの新機能ですが、週に1回実行するレポートで使用する必要があります。毎週別のシートにコピーして貼り付ける必要がある6つの列があります。これは累積的なので、毎週古いデータの後に新しいデータを貼り付け、置き換えることはありません。この場合の範囲は、A6：A24〜F6：F24です。 1つの追加の注意点は、日付と呼ばれる1つの列を追加したいと思います。スニペットを添付しました。新しいタブ（マネージャー、従業員など）に列ヘッダーを作成し、毎週データを入力することで、履歴データ付きのグラフを作成できます。

私が出ているものを追加：

Sub sbCopyRangeToAnotherSheet() 
'Method 1 
Sheets("Summary Build").Range("A6:F24").Copy Destination:=Sheets("Sheet1").Range("A2") 
End Sub 

Answer 1

あなたはほぼありました。あなたのコードはA2にコピーされます。スプレッドシートの一番下から開始する必要がある次の空白セルを見つけるには、最初に塗りつぶされたセルまで移動し、次に移動します。スプレッドシートの最下部はrange（sheet.rows.count、1）です。上に行くにはEnd（xlup）を使用し、次に1つをoffします.offset（1,0）これは1行で列はありません。それを一緒に入れて、我々は、範囲取得（シート（ "シート1"）を。rows.count、1）.END（xlup）.offset（1,0） だからあなたのラインがに今日の日付を入れるには

Sheets("Summary Build").Range("A6:F24").Copy Destination:=range(sheets("sheet1").rows.count,1).end(xlup).offset(1,0) 

ですそれはあなたがこれまでにしようとしなかった

Sheets(1).Range("A6:F24").Copy _ 
Destination:=Sheets("sheet1").Cells(Sheets("sheet1").Rows.Count, 1).End(xlUp).Offset(1, 0)