Past the Value from a ListBox into next available Cell

[gheyman]

This is what I tried. I know my error is in the ListBox.Value

Any help is appreciated

Private Sub CommandButton1_Click()
UnProtectit
Dim lastrow As Long
lastrow = Sheets("Submittal").Cells(Rows.Count, 1).End(xlUp).Row
ListBox2.Value Destination:=Sheets("Submittal").Range("C" & lastrow)
Application.CutCopyMode = False

Protectit

End Sub

 

[Ams_A]

Not sure why you want to use Column 1 (i.e. A) for last row calculation and then update the listbox value in column C as that would be an issue in case your column C value keeps getting updated but Column A doesn't.

Hopefully this should help.

Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
Cells(Lastrow + 1,"C") = ListBox2.Value

Last row is not the empty row and hence, lastrow +1 is being used.

Instead of column C you can use the number 3 or whichever column is applicable.