Hi,

I am trying to insert data into cells. I want to find the last empty row and then dynamically insert data.

This is working ok with this code:

r = Application.WorksheetFunction.CountA(Range("A:A")) + 1

BUT I have my data hidden away in cells CS onwards... How do I use the above or another method? Also, anyway I can use this to find a rolling number, kind of like a autonumber?

I tried the below ALL failing:

r = Application.WorksheetFunction.CountA(Range("A:CS") ) + 1

r = Application.WorksheetFunction.CountA(Range("CS:CS" )) + 1

r = Application.WorksheetFunction.CountCS(Range("CS:CS ")) + 1

r = Application.WorksheetFunction.CountCS(Range("A:CS" )) + 1

Thanks in advance

Hi

Count functions like CountA provide the no of rows. If you want the first blank row etc you need to use

Cells.SpecialCells(xlCellTypeLastCell).Row

or

Cells(ActiveSheet.Rows.Count, "E").End(xlUp).Row

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)