put Text box value into 1st empty space in colum

YAH im stuck again.

Got this
Private Sub PicName_Form_Click()

If PicName_textbox.Text = "" Or Decription_textbox.Text = "" Then MsgBox "Please Enter Picture Name & Short Dicription"
''BOTH TEXT PRESENT "NEXT STEEP"
''''''''''''''''''''''''''''''''''''''''''''''''
'if PicName_textbox.Text <> "" And Decription_textbox.Text <> "" Then (A1).Value = "M³"
''''''''''''''''''''''''''''''''''''''''''''''''
If PicName_textbox.Text <> "" And Decription_textbox.Text <> "" Then MsgBox "Photo Has Been Entered Corectly"
If PicName_textbox.Text <> "" And Decription_textbox.Text <> "" Then Unload Me

End Sub

Trying to get the value's from PicName_textbox and Decription_textbox and enter the value for PicName_textbox into the 1st empty cell in colum A and Decription_textbox nto the 1st empty cell in colum B.

Though i only want them transphered if both PicName_textbox and Decription_textbox

Thank's Again.