Range("x65536").End(xlUp).Select - easy but can't remember ;)

[redspanna]

Hi all,

I have this code...

Sub test()
Sheets("sheet1").Select
Range("x14").Select
Selection.Copy
Sheets("graphs").Select
Range("x65536").End(xlUp).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "d-mmm-yy"
    Selection.Font.Size = 8

End Sub

I want the next available cell chosen in row X but my code keeps selecting the last cell populated and I can't remember how to select the next available cell.

Hellllllllp !!

 

[VoG]

Try

Sub test()
Sheets("sheet1").Range("x14").Copy
With Sheets("graphs").Range("x" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    .NumberFormat = "d-mmm-yy"
    .Font.Size = 8
End With
End Sub

 

[redspanna]

.offset(1)

ahhh I remember now..and thanks for tidying up my simple code

many thanks