Private Sub CommandButton1_Click()
With ActiveSheet
x = Application.Max(1, .Cells(.Rows.Count, 2).End(xlUp).Row, _
.Cells(.Rows.Count, 3).End(xlUp).Row, .Cells(.Rows.Count, 4).End(xlUp).Row, _
.Cells(.Rows.Count, 5).End(xlUp).Row, .Cells(.Rows.Count, 6).End(xlUp).Row) + 1

.Cells(x, 1).Value = x - 1
.Cells(x, 3).Value = TextBox2.Text
.Cells(x, 4).Value = TextBox3.Text
.Cells(x, 5).Value = TextBox4.Text
.Cells(x, 6).Value = TextBox9.Text
.Cells(x, 7).Value = TextBox10.Text
.Cells(x, 8).Value = TextBox7.Text
.Cells(x, 9).Value = TextBox6.Text
If UCase(TextBox8.Value) <> "FALSE" Then
With .Cells(x, 2)
ActiveSheet.Shapes.AddPicture TextBox8.Value, False, True, .Left + 2, .Top + 2, .Width - 4, .Height - 4
End With
End If

End With
Unload Me

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
TextBox8.Value = Application.GetOpenFilename
If UCase(TextBox8.Value) <> "FALSE" Then
Image1.Picture = LoadPicture(TextBox8.Value)
End If
End Sub