『行挿入の振分けについて』（さぶ）

 Excel2000   WinXP


 度々で申し訳ありません。
 以下のコードは、シート名によってデータを振分けておりますが、入力のあったシートの
 行を一行挿入したいのですが、分かりませんので、ご協力願います。

 Private Sub 入力ボタン_Click()

  Dim e As Long
  Dim i As Long
  
        If Not LLL(TextBox10.Text) Then Exit Sub
        
        e = Worksheets("配車簿").Cells(65536, 1).End(xlUp).Row + 1
        For i = 1 To 10
            Worksheets("配車簿").Cells(e, i).Value = Controls("TextBox" & i).Text
        Next i
        
        e = Worksheets(TextBox10.Text).Cells(65536, 1).End(xlUp).Row + 1
        For i = 1 To 9
            Worksheets(TextBox10.Text).Cells(e, i).Value = Controls("TextBox" & i).Text
        Next i
        
    
            
               TextBox1.Text = ""
               TextBox2.Text = ""
               TextBox3.Text = ""
               TextBox4.Text = ""
               TextBox5.Text = ""
               TextBox6.Text = ""
               TextBox7.Text = ""
               TextBox8.Text = ""
               TextBox9.Text = ""
               TextBox10.Text = ""
               
               TextBox1.SetFocus

 End Sub



 Function LLL(ByVal SheetName As String)

 Dim i As Long

 For i = 1 To Worksheets.Count
    If Worksheets(i).Name = SheetName Then
       LLL = True
       Exit Function
    End If
 Next i


 LLL = False

 End Function


 ↓このようなコードを付加えて、シート別に行いたいのですが、
 Dim insertRow As Long
 insertRow = Range("データ").Rows.Count
 Range("データ").Rows(insertRow).Insert Shift:=xlDown
 どこに、どのように付加えたらよいか分かりません。
 皆様のご協力をお願い致します。