I'vw now implemented the ting a a note to observe:

The sheet in question has been frormatted and

If rng(rng.Count).Row 10 Then
MsgBox "last row is " & rng(rng.Count).Row
Endif

Does not work as intended (reports 1000 rows), the issue is solved like
this:

Private Function ComputeNextEmptyRow(ByRef sheet As Object, ByVal
startRow As Integer) As Integer
While sheet.Cells(startRow, 1).Value < ""
startRow = startRow + 1
Wend
ComputeNextEmptyRow = startRow
End Function

And this function is called like this:

row = ComputeNextEmptyTripRow(sh, TripStartRow)
If row 10 Then
MsgBox "There are " & row - 10 & " row(s) in AddedInfo sheet."
End If

Thx again for providing clear and useful help

regards,
Ladyhawke