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.

Try

Dim NextRw as long

With Sheet1 '<-change this
NextRw = .Cells(.rows.Count,1).End(xlUp).Row +1
.Cells(NextRw,1).Value= PicName_textbox
.Cells(NextRw,2).Value=ecription_textbox .Value
End With

Trythis amended code

Private Sub PicName_Form_Click()

    Dim NextRw As Long


    '''''''''''''''''''''''''''''''''''''''''''''''''''''
    If PicName_textbox.Text = "" Or Decription_textbox.Text = "" Then MsgBox _
       "Please Enter Picture Name & Short Dicription"
    ''BOTH TEXT PRESENT "NEXT STEEP"
    ''''''''''''''''''''''''''''''''''''''''''''''''
    'if PicName_txtbox.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
    With Sheet1    '<-change this
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(NextRw, 3).Value = PicName_textbox
        .Cells(NextRw, 4).Value = Decription_textbox.Value
    End With
End Sub

Private Sub PicName_Form_Click()
Application.ScreenUpdating = False
    Dim NextRw As Long
    If PicName_textbox.Text = "" Or Decription_textbox.Text = "" Then MsgBox _
       "Please Enter Picture Name & Short Dicription"
    With Sheet1    '<-change this
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(NextRw, 12).Value = PicName_textbox
        .Cells(NextRw, 13).Value = Decription_textbox.Value
    End With
    
Dim ans As Integer
If PicName_textbox.Text <> "" And Decription_textbox.Text <> "" Then ans = MsgBox _
("Would You Like To Add Another Picture?", vbYesNo)
Select Case ans
Case vbYes
'Run [Macro1]
Unload Me
Case vbNo
If PicName_textbox.Text <> "" And Decription_textbox.Text <> "" Then Unload Me
End Select
End Sub

The code still dosent look to see if the cells have an entry. so textboxs overwrite the cell information. When it need to drop down a line.


Thanks.

The code that I posted finds the next empty cell in Column A, it has to be empty so it cannot overwrite contents.