Hi, give this a try:
'################################################# ########
Sub UpdateText
Dim CountData&
Dim myTextStringA$, myTextStringB$
CountData = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Cells(CountData + 1, 1) = myTextStringA
Cells(CountData + 1, 2).Select
' Or if you want to insert another string...
' Cells(CountData + 1, 2) = myTextStringB
End Sub
'################################################# ########
HTH--Lonnie M.