excel - 最後の2行を使用してIFステートメントの後にワークシート間に値を設定する方法

Question

Hey という名前のシートから final という名前のシートの別の列に列全体の値をコピーして貼り付けようとしています。

コピー、貼り付け、または選択オプションを使用したくありませんが、コードは最初の行のみをコピーしています。

IntLastRow = Sheets("Hey").Cells(Cells.Rows.Count, "A").End(xlUp).Row
' IntRLastRow = Sheets("Interdiction Review").Cells(Cells.Rows.Count, "A").End(xlUp).Row

If Sheets("Hey").Range("H2") = "" Then
    Sheets("Final").Range("A2").Value = Sheets("Hey").Range("G2:G" & IntLastRow).Value
ElseIf Sheets("Hey").Range("H2") <> "" Then
    Sheets("Final").Range("A2").Value = Sheets("Hey").Range("H2:H" & IntLastRow).Value
EndIf

多分私が間違っていることを知っていますか？

2 つ以上の列から別のワークシートにある別の列に日付をコピーする必要があります。

ただし、同じ行の最後の 2 行を使用できるかどうかはわかりません。このコードを試していますが、1 行の値のみを貼り付けます。

intrlastrow = Sheets("Final").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
 
 Debug.Print intrlastrow
    If Sheets("Hey").Range("AJ2") = "" Then
            Sheets("Final").Range("A" & intrlastrow, "A" & IntLastRow).Value = Sheets("Hey").Range("AI2:AI" & IntLastRow).Value
        ElseIf Sheets("Hey").Range("AJ2") <> "" Then
            Sheets("Final").Range("A" & intrlastrow, "A" & IntLastRow).Value = Sheets("Hey").Range("AJ2:AJ" & IntLastRow).Value
        End If

HEY という名前のシートの 2 つ以上の列の値を、宛先シート (最終シート) の同じ列に追加する必要があります。