Da forma que vc pretende somente com programação VBA, @CesarM

No anexo, uma possível solução (não esqueça de permitir ativação de macro na abertura do arquivo).

O modelo aumenta (insere) ou diminui (deleta) a quantidade de linhas necessária conforme o valor inserido na B17.

Para ver o código, clique com o botão direito na "orelha" da planilha e escolha "Exibir Código".

O código usado foi esse:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range, qtLinsTab As Long
  If Target.Address = "$B$17" Then
    Set r = [C23].CurrentRegion
    qtLinsTab = r.Rows.Count - 3
    Set r = r.Rows(r.Rows.Count)
    Application.EnableEvents = False
    If [B17].Value > qtLinsTab Then
      r.Offset(-1).Copy
      Set r = r.Resize([B17].Value - qtLinsTab)
      r.Insert xlShiftDown
      Application.CutCopyMode = False
    ElseIf [B17].Value < qtLinsTab Then
      Set r = r.Offset([B17].Value - qtLinsTab).Resize(qtLinsTab - [B17].Value)
      r.Delete xlShiftUp
    End If
    Application.EnableEvents = True
  End If
End Sub

Obrigado mais uma vez EdsonBR!
Imaginei que iria precisar de codificação.
Não tenho familiaridade com VBA, vou deixar registrada a solução para alguma oportunidade, se eu vier a estudar VBA.
Grato pela atenção e, de novo, pela qualidade da resposta.