データを最終行に転記したい

Question

入力データを都度最終行に追記し､蓄積データを作成したい

入力行が7行あり、7行をコピーし、そのまま張り付けることはできましたが、
最終行に張り付けることができません
解決方法がわからないため、教えて下さい

「入力」シートの最大7行のデータを「蓄積」シートのA列に値がある最終行に転記を
ボタンを押すたびにデータ蓄積していきたい

Sub 蓄積()
'
' 蓄積 Macro

Sheets("蓄積").Select
最終 = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("入力").Select
Range("A2:H7").Select
Selection.Copy

Sheets("蓄積").Select
Range("A" & 最終).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'
End Sub

初心者ですので、全然違うことをしているかもしれませんが。。。
よろしくお願いします。

Comments

[torisan]

現在どのようになっているか、エラーが出るならエラー内容も教えて下さい。
想定している動きと同じかわかりませんが、こちらの環境では再現性がありませんでした。

[mi07]

2回目、3回目マクロを起動させると､蓄積シート最終行にどんどん追記されるかと思うのですが、7行すべてが埋まっている場合は問題ありませんが、2行しか埋まっていない場合も、次の貼り付けは8行目、15行目となってしまいます。
2行しかなければ、次は3行目に追記されるようにしたいのですが・・・

[torisan]

入力シートの A7 セルに空白文字や、計算式が入っていたりしますか？

[mi07]

計算式が入っています。
そうすると難しいのでしょうか？

Answer 1

２行目～７行目の「６行分」のサンプルです。。
必要な分だけをコピーするようにしています。

Sub Macro2()
    Sheets("蓄積").Select
    最終 = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("入力").Select
    
    '▼▼▼
    InRow = 7 '７行目から上の行を見ていく
    Do While Trim(Range("A" & InRow)) = "" And InRow >= 2
        InRow = InRow - 1
    Loop
    If InRow <= 1 Then
        MsgBox "データがありません。"
        Exit Sub
    End If
    Range("A2:H" & InRow).Select '必要な分だけを選択。↓でコピー
    '▲▲▲
    
    Selection.Copy
    
    Sheets("蓄積").Select
    Range("A" & 最終).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False
End Sub

Comments

[mi07]

ありがとうございました！
すぐに教えていただき大変助かりました。
教えていただいた部分解読してみます！