Need Help with code to "Paste into next available row"

D

dhunter43

I am trying to move the datavalues from row2(worksheet2,"a2:ab2") to
worksheet3 next available blank row then clear the contents from cells
(c2:c10) in worksheet1. This line of code works fine for everything but
pasting to the next available blank row in worksheet3. It pastes the data
into row19 everytime overwriting previously input data. Worksheet3 has column
headings in row1 and blank rows from a2:A64000, except for row19 obviously.
Everything in the code works correctly except for lines 5 & 6. The line
numbers are not part of the code. I added them to simply communications.

1 Sheets("Formulas").Select
2 ActiveSheet.Range("a2:ab2").Select
3 Selection.Copy
4 Sheets("OperationalRates").Select
5 LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
6 ActiveSheet.Rows(LastRow & ":" & LastRow).Select
7 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

8 Sheets("InputForm").Range("c2:c10").ClearContents

End Sub
 
P

Pranav Vaidya

code line 5 & 6 should be resp
LastRow = Range("A65500").End(xlUp).Row + 1
Range("A"&LastRow).Select

Hope this helps!!
 
D

Don Guillett

try this from anywhere in the workbook. I don't understand how line 8
pertains
Sub PasteValues()
Set ss = Sheets("formulas")
Set ds = Sheets("operationalrates")
ss.Range("a2:d2").Copy
ds.Range("a" & ds.Cells(Rows.Count, "a").End(xlUp).Row + 1) _
.PasteSpecial Paste:=xlPasteValues
'???
Sheets("InputForm").Range("c2:c10").ClearContents
End Sub
 
D

dhunter43

I get this error message
Run time error '1004'
Select method of Range class failed

with this line hilighted in the VBA editor.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top