Hi, you can use the code below to give you the last used cell in that
column, then insert the data in the next cell by adding 1:

' the "A" value in Cells(Rows.Count, "A") represents the
' column where you wish to find the last used cell
CountData = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Cells(CountData + 1, 1) = myVariable

HTH--Lonnie M.