sub WriteRowforActiveCell()
cells(1,activecell.column).Value) = _
cells(rows.count,activecell.column).End(xlup)(2).R ow
End Sub

--
Regards,
Tom Ogilvy


"swtransaction" wrote:


I have several spreadsheets that are converted in batch. The row count
is never the same. I've tried to write some code that did not
reference a specific cell, but I'm having problems.

Here is what I have so far. The problem is the last cell is different
in every file. I can do this with the row number in the A column, but
I need it at the end of th spreadsheet.

- go to end row/column
- move one cell to the right
- enter row()
- copy row() from that cell to the top row in that column


ActiveCell.SpecialCells(xlLastCell).Select
Range("R4233").Select
ActiveCell.FormulaR1C1 = "=ROW()"
Range("R4233").Select
Selection.Copy
Range("R4232").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False


--
swtransaction
------------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...o&userid=37459
View this thread: http://www.excelforum.com/showthread...hreadid=571370