行を増やしてから転記したい

Question

先日からこちらで何度かアドバイスをいただいております。
https://teratail.com/questions/257404

目的のシートを開いて、データを転記させるところまではできました。
ここでまたできないことがあり、教えていただきたく質問させていただきました。

転記をする内容は6行ひとかたまりのデータ2つです。
A8からO19までで、A8からO13までのかたまり（1ヶ月分、計算式あり）と、A14からO19までのかたまり（1ヶ月分、計算式あり）です。
A列には年月が入っておりますが、A8からA13は同じ年月、A14からA19はその翌月のデータが入っています。
転記をするのはA8からE19、H8からH19、K8からK19、M8からM19です。
画像のA列と青いセルが転記したい場所です。

転記をする際、転記先のデータの最下部に6行ひとかたまり（1ヶ月分、計算式あり）を追加して、
今月と先月の2ヶ月分を転記したいと思っております。

問題は6行ひとかたまりを増やす方法がわからない点です。

現在のコードのどこに何を追加したら6行分増やして2ヶ月分の転記ができるようになりますでしょうか？
ご教授のほど、よろしくお願いいたします。

Sub 転記()
    Dim rngFrom As Range
    Dim rngTo As Range
    Dim rngLast As Range
    Dim c As Range
    Dim ixRow As Long
    Dim ixCol As Long
Dim wb1 As Workbook
Workbooks.Open Filename:= _
"C:\Users\ファイル\" & Range("C1").Value
Set wb1 = ActiveWorkbook    Set rngFrom = ThisWorkbook.Worksheets("Sheet1").Range("A8:O19")With wb1.Worksheets("個別データ")
        Set rngLast = .Cells(.Rows.Count, 1).End(xlUp)
    End With
    With rngFrom
        Set rngTo = rngLast.Resize(.Rows.Count, .Columns.Count).Offset(1 - .Rows.Count)
    End With
    Set rngTo = rngTo.Range("A1:E12,H1:H12,K1:K12,M1:M12")
    For Each c In rngTo
        If IsEmpty(c.Value) Then
            ixRow = c.Row - rngTo.Row + 1
            ixCol = c.Column - rngTo.Column + 1
            rngTo(ixRow, ixCol).Value = rngFrom(ixRow, ixCol).Value
        End If
    Next
  
  Application.DisplayAlerts = False
  ActiveWorkbook.Close True
  Application.DisplayAlerts = True
End Sub

Answer 1

転記をする内容は6行ひとかたまりのデータ2つです。
A8からO19までで、A8からO13までのかたまり（1ヶ月分、計算式あり）と、A14からO19までのかたまり（1ヶ月分、計算式あり）です。
A列には年月が入っておりますが、A8からA13は同じ年月、A14からA19はその翌月のデータが入っています。
転記をするのはA8からE19、H8からH19、K8からK19、M8からM19です。
画像のA列と青いセルが転記したい場所です。

どのシートの話か書いてありません。
複数シートを扱うなら、そのシートの話かをちゃんと説明してください。
回答者にコードを読んで理解しろというのは少し乱暴です。

行の挿入は、その操作をマクロの記録をしてみれば解ると思いますが、してみました？

また、考え方を変えると、あとでA列を降順で並び替えればいいので、
列があってればどの位置に貼り付けてもいいようにも思えます。
エクセルの並び替えは割と速いので、変に切った張ったするより速いかも知れません。
数式も、コピペすればいいので、とりあえず、一番下に貼り付けてもいいのでは？
と、思いました。

あと、エクセルの画面は
エクセルの画面がアクティブな状態で、
Altキー+PrintScreenキーでコピーできます。
ペイントなどのソフトで貼り付けて保存すれば、
容易にここに貼り付けられると思います。

他には、
エクセルの機能で、
セル範囲を図としてコピー
↓
適当なシート上に貼り付け
↓
名前を付けて保存
↓
閉じる
↓
ファイル名の拡張子をZipに書き換える
↓
解凍
↓
出来たフォルダーの中を探せば、
さっきの画像が画像ファイルであるはずです。

---

マクロの記録も試してみたのですが、うまく実行できませんでした。
最終行の下6行をコピーして貼り付ける

上手くできなかったなら、どうなったか説明してください。
「8行目から6行分行を挿入したい。」
がやりたい事ならそう書けばよくないですか？
責めているのではありません。よくよく考えて欲しいということです。

Sub 転記2()
    Dim rngFrom As Range
    Dim rngTo As Range
    Dim wbkTo As Workbook
    Dim strFileName As String

    With ThisWorkbook.Worksheets("Sheet1")
        strFileName = .Range("C1").Value        '転記先ファイル名取得
        Set rngFrom = .Range("A8:O19")          '転記元データセル
    End With

    '転記先を開く
    Set wbkTo = Workbooks.Open(Filename:= _
                               "C:\Users\ファイル\" & strFileName)
    '転記先セル用意
    With wbkTo.Worksheets("個別データ")
        .Rows(8).Resize(rngFrom.Rows.Count).Insert xlShiftDown
        Set rngTo = .Range("A8").Resize(rngFrom.Rows.Count, rngFrom.Columns.Count)
    End With

    'コピペ
    rngFrom.Resize(, 5).Copy rngTo.Range("A1")
    rngFrom.Columns("H").Copy rngTo.Columns("H")
    rngFrom.Columns("K").Copy rngTo.Columns("K")
    rngFrom.Columns("M").Copy rngTo.Columns("M")

    '転記先上書き保存
    Application.DisplayAlerts = False
    wbkTo.Close True
End Sub

なにかを操作する前に、
操作対象（操作したいセル範囲）を上手く表現出来てない気がします。
前にも言ったかもしれませんが、
まずは日本語で表現できるようになりましょう。

Comments

[o-k]

アドバイスありがとうございます。

説明不足すみません。
マクロを記述したファイルとは別なファイルのシート（個別データ）に転記したいと思っております。

マクロの記録も試してみたのですが、うまく実行できませんでした。
最終行の下6行をコピーして貼り付ける、というのをネットで調べながらやっていますがうまくいきません。

ご教授いただけませんでしょうか？

[o-k]

コードのご教授ありがとうございます。
コピペしてみたのですが、うまくいきませんでした。

目的のファイルが開いて上書き保存にはなります。
ただ数値の転記ができていないのと、転記先で増やしたい6行が増えておりませんでした。

少し時間がかかりそうですが、後ほどもう一度コピペミスがないか確認してみます。

[mattuwan]

'転記先セル用意
With wbkTo.Worksheets("個別データ")
.Rows(8).Resize(rngFrom.Rows.Count).Insert xlShiftDown
Set rngTo = .Range("A8").Resize(rngFrom.Rows.Count, rngFrom.Columns.Count)
.activate
　　　rngto.select
.stop
End With

と追記して、意図したセル範囲が取得できているか確認してください。
で、問題なければ、
F8キー押下で一行づつ実行してコピペがちゃんと出来ているか確認してください。
それで良ければ上書き保存が出来てないのかなぁ。。。。？
とにかくステップインで一行づつ意図通りか確認してください。
それで上手くいってるなら呪文の使い方が間違っていますので、
別の呪文でアプローチをすることになります。

[o-k]

ありがとうございます。
試してみましたが、実行時エラー438と出ます。
F8を押していくと、.stopのところでエラーが出ます。

[mattuwan]

あ、失礼しました。
Stopに.（ピリオド）は要らないです。
電源落します。なにかあっても明日以降になります。
上手くいかなかったら、
VBA　Stop
などと検索して調べてみてくれると助かりますし、
ご自分のスキルUPにつながります。

[o-k]

アドバイスありがとうございます。

ピリオドを消してみましたが、うまくいきませんでした。
エラーは出ないようになったのですが、12行追加されるのが最下部ではなく上のほうになってしまうのと、
数値や計算式は反映されていないようです。

自分で調べて解決できたら自己解決方法のところに記載したいと思います。

[mattuwan]

そういう風に書いているからです。
あれ？
一番下でした？
数式とかフィルダウンで十分でないですか？
最終行を行数分フィルダウンしてから、
必要なセルを書き換えては？

[o-k]

アドバイスありがとうございます。
ネットで調べながらやってみているのですが、まだうまくできません。

.End(xlUp)
.Copy.Offset(.Rows.Count)
.AutoFill Destination:=.Resize(6)

一番下に6行追加ということで上記を足してみましたがダメでした。