エクセルで空白行に上の行のデータをコピー＆ペーストする

excel2007を使用してます。

1行目に入力されているデータを2行目以降の空白になっている行にコピー・ペーストを自動でできるようにしたいです。

1行目　12345　abc　7777V　・・・
↓
2行目　12345　abc　7777V　・・・

(別の作業時に1行目の内容は変更されます)
1行目　44556　xyg　555555G　・・・
2行目　12345　abc　7777V　　・・・
↓
3行目　44556　xyg　555555G　・・・


1行目　99887　ｲﾛﾊ　99880D　・・・
2行目　12345　abc　777V　・・・
3行目　44556　xyg　555555G　・・・
↓
4行目　99887　ｲﾛﾊ　99889D　・・・

という感じで1行目に新しいデータが入るので、1行目に入ったデータを空いている行にコピー・ペーストを自動でできるようにマクロを組みたいのですが全然うまくいきません。
ネットで
Sub Macro1()
　　n = Cells(Rows.Count, "C").End(xlUp).Row + 1
　　Range("C" & n).Select
　　ActiveCell.FormulaR1C1 = "新宿区"
というマクロを見つけて変更してみたり

Sub Sample2()
With Range("A1")
Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Value
End With
End Sub
というマクロを見つけて試してみたり、変更してみたりしたのですが全部の行をコピー・ペーストすることができませんでした。
どのように書き換えたら上記のようにできるのか教えてもらえると助かります。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2019/02/19 14:08

こんにちは

最終行を取得するのにどの列を使えば良いのか（必ず値がある列）わかりませんが、仮にA列を利用して良いものとすれば、

Rows(1).Copy Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow
で、いかがでしょうか？

この回答へのお礼

教えて頂きありがとうございました！
できました、本当にありがとうございました！
助かります!!

お礼日時：2019/02/19 14:58