Копирование данных в Excel «отталкиваясь» от последней заполненой строки

Sub CopyMyRange()
    Dim LastRow As Integer
    Dim upOffset As Byte
    Dim rowNumber As Integer
    Dim rngFrom As Range
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    upOffset = CInt(InputBox("Введите количество строк для отступа с конца", "парамерт 1", 2))
    
    rowNumber = Application.WorksheetFunction.Max(1, LastRow - upOffset)
    Set rngFrom = Range("A" & rowNumber & ":G" & rowNumber)
    rngFrom.Copy
    
    upOffset = CInt(InputBox("Введите количество строк c конца для вставки", "парамерт 1", 2))
    rowNumber = Application.WorksheetFunction.Max(1, LastRow - upOffset)
    
    With Cells(rowNumber, "H")
        .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With
End Sub