列の最後の行にタイムスタンプを貼り付け

Question

私の目標は、アクティブなセルの行に対応する列AからFをコピーし、これらの列からのデータを「1日目」ワークシートに貼り付けることです。宛先シートの列Gの最初の空白行にタイムスタンプを貼り付けます。

次のコードでは、アクティブセルの行全体をコピーすることしかできませんでした。タイムスタンプは、宛先シートの列Gのランダムな行に貼り付けられます。ほとんどの場合、それは何もコピーしません。

お時間をいただきありがとうございます。

ActiveCell.EntireRow.Copy Destination:=Sheets("Day 1").Range("A" & Rows.Count).End(xlUp).Offset(1) 
Range("G2").Value = Now() 

Answer 1

は、タイムスタンプ用として

Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy Sheets("Day 1").Range("A" & Rows.Count).End(xlUp).Offset(1) 

を試し、 "1日目" シートを参照することを忘れないでください。

Sheets("Day 1").Range("G2").Value = Now 

あなたはそれを持っていた方法は、あなたの現在ワークシート（ませ「1日目」）にタイムスタンプを挿入しました。私の推測では、行2がアクティブな行になるたびに、「1日目」シートの次の空行にその行全体（G2のタイムスタンプとともに）をコピーしたとします。だからこそタイムスタンプが全部の "ランダムな"行に現れたのです。

UPDATE：

dim NextRow as Long 

NextRow = Range("A" & Rows.Count).End(xlUp).Offset(1).Row 
Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy Sheets("Day 1").Range("A" & NextRow) 
Sheets("Day 1").Range("G" & NextRow).Value = Now