Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select all rows till last row with value in Column A and CopyPaste
Good morning
Was wondering whether someone could help me with this. I am trying to select all rows up until the last row with a value in column A on Worksheet1, copy this selection, and paste it into the (last row + 1) in Worksheet 2. Initially I was going to use this code below (as I know that the total number of lines on sheet1 will never exceed 250): Sub Copy() Dim Lastrow As Long Sheets("Sheet1").Select Rows("1:250").Select Selection.Copy Sheets("Sheet2").Select Lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Cells(Lastrow + 1, 1).Select Selection.Paste End Sub I get the following error: Run-time error '438': Object doesn't support this property or method Please can someone assist? (also, whilst the code above simply selects columns1:250, if I could select up until the last row with data in column A, I would prefer that) Thanks so much for the help |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I need till check for duplicate in a column. | Excel Discussion (Misc queries) | |||
count rows till cell is blank | Excel Programming | |||
delete dulipate rows by checking each and every cell in a row till end. | Excel Programming | |||
SUM values in a column till you reach a flag in another column- Urgent | Excel Programming |