Dim LastRow as long

'I'm not sure what this line does, 'cause it depends on what's selected
Selection.Delete Shift:=xlUp

'no need to select a range to work on it.
Columns("D:D").Insert
Rows("1:1").Insert

'find that lastrow based on the data in column A
LastRow = cells(rows.count,"A").end(xlup).row

'fill all of the range with the formula at one time.
Range("D2:D" & lastrow).FormulaR1C1 = "=DATE(RC[-1],RC[-3],RC[-2])"


Karolina wrote:

Hi again,

I already asked about this, however I still do not know where to put
the lastrow (sorry but I am not very familiar with this programming
language). I already did a macro with a certain number of rows.
However, it still can not read the extra rows of a text file (with
more rows than the ones I used to create the macro initially). Now I
know that I could use "lastrow" to make my calculations, however, I
still do not know how to include this command in my program. Currently,
one part looks like the one showed below: a formula is developed in the
range of cells from D2 to D7 however I would like to say, instead of
D7, until the last row appears in the file. Thus, I still do not know
how to make it. What should I change here (in my main program)? How the
subroutine should look like,if so? Hope somebody can help me with
this!!!
Thanks in advance for your help,
Karolina
__________________________________________________ ______________
Selection.Delete Shift:=xlUp
Columns("D:D").Select

Selection.Insert Shift:=xlToRight
Rows("1:1").Select

Selection.Insert Shift:=xlDown
Range("D2").Select
ActiveCell.FormulaR1C1 = "=DATE(RC[-1],RC[-3],RC[-2])"

Selection.AutoFill Destination:=Range("D2:D7"),
Type:=xlFillDefault
Range("D2:D7").Select

--
Karolina
------------------------------------------------------------------------
Karolina's Profile: http://www.excelforum.com/member.php...o&userid=31600
View this thread: http://www.excelforum.com/showthread...hreadid=514059

--

Dave Peterson