Как скопировать данные между листами в Excel VBA, где данные имеют некоторые вложенные данные

Question

Private Sub insert()
Dim target As Range
Dim cell As Range
Dim rownumber As Integer

    Set target = Range("B22:L32")

    If line <> -1 Then
        rownumber = line
    Else
        rowNr = target.Rows.Count
    End If

    target.Rows(rownumber + 1).Insert
    target.Rows(rownumber).Copy target.Rows(rowNr + 1)
    For Each cell In target.Rows(rownumber + 1).Cells
        If Left(cell.Formula, 1) <> "=" Then cell.Clear
    Next cell
End Sub

У меня проблема с копированием данных между листами, на целевом листе недостаточно строки для скопированной строки.и я хочу автоматически вставить строку в зависимости от того, сколько строк на исходном листе.Для лучшего понимания здесь я прилагаю изображение, показывающее, что я хочу