Find last 2 cells in column and delete

[Zanatos]

Have a spreadsheet that grows horizontal with a commandbutton. I need to delete the values of the last two cells everytime I do this and am having trouble selecting them to do so. Here is the code I have been working with:


Dim mylayeronea, mylayeroneb As String
mylayeronea = Cells(30, Columns.Count).End(xlToLeft).Offset(0, -1).Address
mylayeroneb = Cells(30, Columns.Count).End(xlToLeft).Address
ActiveSheet.Range(mylayeronea & mylayeroneb).Select
Selection.Delete

mylayeronea and mylayeroneb are selecting the correct cells so that is not the problem. Anyone know why I am unable to do this?

Thanks

 

[vaendryl]

range("A1:B2") or range(cells(1,1),cells(2,2))
are correct syntaxes.

you prolly want:

Range(mylayeronea & ":" & mylayeroneb)

and no need to select, you can just say range(xxx).delete

dim a as long
a=activesheet.usedrange.columns.count
range(cells(30,a-1),cells(30,a)).delete

would prolly work too.

 

[Zanatos]

This works. Thanks, I tried alot of variations, that just wasn't one of them

Thanks!