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

[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

 

[Pranav Vaidya]

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

Hope this helps!!

 

[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

 

[dhunter43]

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

with this line hilighted in the VBA editor.