kesisimdeki boş hücreye yazdırma

[excelmeraklisi]

Mutlu günler
combobox'a girdiğim değeri bul makrosuyla sütunda bulduruyorum.
Ayrıca bul makrosuyla boş ilk satırı bulduruyorum.
Bulduğum bu sütun ile satırın kesişimindeki boş hücreye textbox'a yazdığım değeri yazdırmak istiyorum.
tşk.

 

[xxcell]

BosIlkSatir=1
BosIlkSutun=1
cells(BosIlkSatir, BosIlkSutun) = textbox1.text

 

[excelmeraklisi]

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("aylık1").Select
Range("b4").Select
If [b4].Value = "" Then
[b4].Value = 1
Else
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, -1).Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm7.TextBox3.Value
ActiveCell.Offset(0, 2).Value = UserForm7.TextBox4.Value

Set x = Range("f3:bg3").Find(ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole).Cloumn
Set y = Range("a4:a20").Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
Cells(y, x).Value = UserForm7.TextBox2.Value


End If
End If
End Sub

Yukarıdaki kodlarla kesişimdeki hücreye yazdırmaya çalışıyorum fakat işin içinden çıkamadım yardım

 

[veyselemre]

Set x = Range("f3:bg3").Find(ComboBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
Set y = Range("a4:a20").Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)

If Not x Is Nothing And Not y Is Nothing Then Cells(y.Row, x.Column).Value =UserForm7.TextBox2.Value