最後の行のデータをコピーして、同じワークシート内のテーブルの最後の行にコピーするにはどうすればよいですか？

Question

Iは'summary'表（Rから列O）の最後の行に（Iに列F）selectとcopyへの道を最後の行からデータを検索しようとしています。

今のところこれは私が見つけたコードですが、異なる行の同じ列の範囲内に貼り付けることができると思われます。

たとえば、データF38:I38をコピーし、データをF40:I40に貼り付けます。しかし、私が欲しいのは、F38:I38のデータをコピーし、コードは'summary'テーブルの最後の行を見つけ、最後の空の行にデータF38:I38を貼り付けます。

同じワークシートの最後の2つの行をターゲットにすることはできますが、セルの数は異なりますか？このプロセスを自動化する方法はありますか？

Dim lastRowI As Integer 

lastRowI = ws.Cells(Rows.Count, 6).End(xlUp).Row 
ws.Activate 
ws.Range(Cells(lastRowI, 6), Cells(lastRowI, 9)).Select 
Selection.Copy 
ws.Range(Cells(lastRowI + 2, 6), Cells(lastRowI + 2, 9)).Select 
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

Answer 1

、あなたがあなたのテーブル「概要」という名前していると仮定すると：私はこれを試してみましたが、それは最後に取って代わるだろう

Dim rngLastRow As Range 
Set rngLastRow = Range("N4").CurrentRegion 
Set rngLastRow = rngLastRow.Rows(rngLastRow.Rows.Count) 

Answer 2

サマリー表の範囲の最後の行がある

//Select "Summary" table 
    ActiveSheet.Range("Summary").Select 
    //Go to the last row of "Summary" table 
    Selection.End(xlDown).Select 
    //Go to Next row 
    Selection.Offset(1, 0).Select