توابع شرطی if تو در تو

[perspolis52]

سلام
این کد رو چطور قرار بدم که درست اجرا بشه؟؟؟
ActiveCell.Offset(1, 0).Select

If Add_Color.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Patern.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = title.Text
End If
If Add_Size.Enabled = True Then
Selection = code.Text
ActiveCell.Offset(0, 1) = width1.Text
ActiveCell.Offset(0, 2) = length.Text
End If

code.Text = code.Text + 1
title.Text = ""
length.Text = ""
width1.Text = ""

هر حالتی رو امتحان می کنم یکی از فیلد ها رو جایگزین نمیکنه. مثلا یه بار فیلد عنوان رو نمیاره یه بار فیلد طول و عرض .