Find last row with value

[Sincity_Jason]

Can i get vba to find the last row with a value and paste copied range to next row.

 

[Dragracer]

Welcome to the board.

Here is an example to get you started.

<pre>
Sub test1()

Range("A2:C2").Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

</pre>

 

[rikrak]

On 2002-09-28 13:39, Sincity_Jason wrote:
Can i get vba to find the last row with a value and paste copied range to next row.

Hi,

To find last row with a value:
lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).row

To find last used cell in column A:
LastRow = Range("A65536").End(xlUp).Row

So the next empty cell = LastRow + 1

Your copy would be something like this:
Range("A" & LastRow)= [a1] or
Range("A1").Copy Destination:=Range("A" & lastRow)