find last entry in a column

Len,

I assume you mean that you want VBA to do this.
- I have posted code for finding the last entry assuming the column concerned is column A.
- To get your offset you will need to manipulate LastRowUsed
- To add text you will have to manipulate that cell's .Value

Code:

Sub FindLastRowUsedDespiteAnyBlanks()
Dim LastRowUsed
'this returns the last row used in column A [e.g. of Sheet1] even if there are blanks in some cells
'Sheets("Sheet1").Select 'May not be necessary
ActiveSheet.Select
If Cells(1, "A").Value = "" Then
LastRowUsed = 0
Else
LastRowUsed = Cells(Rows.Count, "A").End(xlUp).Row
End If
MsgBox LastRowUsed
End Sub

Denis