UserForm to input data into sheet(s)

Private Sub CommandButton1_Click()
ALR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1

For Count = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Count) = True Then
LR = Sheets(Count + 2).Cells(Rows.Count, 1).End(xlUp).Row + 1
For TCount = 1 To 4
Sheets(1).Cells(ALR, TCount).Value = Me.Controls("Textbox" & TCount).Value
Sheets(Count + 2).Cells(LR, TCount).Value = Me.Controls("Textbox" & TCount).Value
Next
Sheets(1).Cells(ALR, 5).Value = ListBox1.List(Count)
ALR = ALR + 1
End If
Next
End Sub