ник: Мишок
спасибо, отчасти разобрался
Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
последняя запись в третьем столбце.
вопрос возник другой:
excel (документА) открывается как (документА1) соотвественно при закрытии спрашивает как его сохранить а надо просто перезаписать,
можно, конечно, кодом закрыть
.Workbooks(1).SaveAs fileName:=nnnn
.Quit
но тогда не видно что исправленно