VBA Code to stack values even if no value is in above row

[Malcolm torishi]

Hi
can anyone tell me if there is a VBA Code to do this. I have a VBA Code that insert values onto rows on my spreadsheet each time I press a command button on my userform and each time I press command button it put that values underneath one another. But sometimes if one of my text boxes does not have any value in it the next time I press the command button the value that should say go onto to 10 does jump up to row 9 if there is no value in the row above.
So my question is , is there a VBA Code to stop this and keep the value stacking underneath each other if there is no value above.
Thank you

 

[Peter_SSs]

I think we might need more detail of exactly what you have and what you are trying to achieve.

 

[My Aswer Is This]

If we are dealing with entering value in column A first empty cell
Try this:

Sub Check_Up()
'Modified  7/28/2019  5:43:42 AM  EDT
Dim FirstEmpty As Long
FirstEmpty = Range("A1").End(xlDown).Row + 1
Cells(FirstEmpty, 1).Value = "Alpha"

End Sub

 

[trunten]

Sub appendToSheet(ByVal appendValue As String, Optional targetSht As Worksheet, Optional targetColumn As String = "A")
    If targetSht Is Nothing Then Set targetSht = ActiveSheet
    With targetSht.Cells(targetSht.Rows.Count, targetColumn).End(xlUp)
        If .Value = "" Then
            .Value = appendValue
        Else
            .Offset(1).Value = appendValue
        End If
    End With
End Sub

you can call that sub from within your existing code like so:

    appendToSheet "new value" '<--Appends to active sheet in column A
    appendToSheet "newer value", Sheets("Sheet1") '<--Appends to a named sheet in column A
    appendToSheet "newest value", Sheets("Sheet1"), "B" '<--Appends to a named sheet in column B