Excelガントチャートのアレンジ：行のグループ化で折りたたむ(VBAマクロも紹介)

Sub popup()

'ユーザーフォーム（BOX）の召喚
  UserForm1.Show

End Sub

Private Sub UserForm_Initialize()

'リストボックスの設定
    UserForm1.Caption = "チャート行の挿入"
    
End Sub



Private Sub CommandButton1_Click()

'変数の定義と値付け
  Dim Textbx1 As Long
  Dim Textbx2 As Long
  Textbx1 = Me.TextBox1.Text 'Textbox1は何行めに挿入か
  Textbx2 = Me.TextBox2.Text 'Textbox2は何行追加か

  Dim Ori As Long
  Dim St As Long
  Dim Fn As Long
  Ori = Textbx1
  St = Textbx1 + 1
  Fn = Textbx1 + Textbx2


'コマンドボタンを押したらBOXが消える設定をする
    Unload UserForm1
    
'行を挿入値にする
    Rows(St & ":" & Fn).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

'1行ずつコピーするため、繰り返しFor Next構文を使う
  Dim i As Long '繰り返し変数定義
  Dim Fn2 As Long '繰り返すストップの為
  Fn2 = Textbx2 - 1
    
    Rows(Ori & ":" & Ori).Select
    Selection.Copy
      
    For i = 0 To Fn2
      Rows(St + i & ":" & St + i).Select
      ActiveSheet.Paste
    Next
    
'チェックボックスがON（事象を下げる）の場合はインデントして”期間1”にして日付を集計に変える
    If CheckBox1.Value = True Then  'True＝ONです
    
    'インデントの設定
    Range("C" & St & ":" & "C" & Fn).Select
    Selection.IndentLevel = 1
    
    '親事象のD列を"期間1"に変更。D6が"期間1"に相当
    Range("D" & Ori).Select
    ActiveCell.Value = Range("D6").Value
    
    '親事象の日付の集計①
    Range("F" & Ori).Select
    ActiveCell.FormulaR1C1 = "=MIN(R[1]C:R[" & Textbx2 & "]C)"
    
    '親事象の日付の集計②
    Range("H" & Ori).Select
    ActiveCell.FormulaR1C1 = "=MAX(R[1]C:R[" & Textbx2 & "]C)"
    
    '個事象の折りたたみ追加
    Rows(St & ":" & Fn).Select
    Selection.Rows.Group

　　'追加行のアクションセルへ
　　Range("C" & St).Select

    End If

End Sub