Next available open cell in column

[Ark68]

I have a column of empty cells A2:A25.
How can I code a paste function that will paste a copied value (only) into the next open cell within that range.

Jenn

 

[xld]

Range("A1").Copy Range("A2").End(xlDown).Offset(1, 0)

 

[Peter_SSs]

If the cells are filled sequentially, you could try something like:

YourRange.Copy Destination:=Range("A" & Rows.Count).End(xlup).Offset(1)

If that is not it, try to provide a bit more detail and/or examples.

 

[VoG]

Try

Range("A25").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

 

[Ark68]

Thanks you gentlemen!
I haven't tried them yet, but Peter, suppose I wanted to do some error checking. I do not want to paste a value, or range of values, into the next available cell and exceed the 25 cell available "zone". Is there a way I can extract a value from your suggestion? ie a way to set value to where that formula is going to drop the value(s).

Jenn

 

[Peter_SSs]

Thanks you gentlemen!
I haven't tried them yet, but Peter, suppose I wanted to do some error checking. I do not want to paste a value, or range of values, into the next available cell and exceed the 25 cell available "zone". Is there a way I can extract a value from your suggestion? ie a way to set value to where that formula is going to drop the value(s).

Jenn

If the Peter is me rather than Peter (VoG) then you could try something like this

Dim lNextRw As Long

lNextRw = Range("A" & Rows.Count).End(xlUp).Row + 1
If lNextRw < 26 Then
    YourRange.Copy Destination:=Range("A" & lNextRw)
Else
    MsgBox "Row 25 already used"
End If