Macro to copy row from one sheet... Paste in first blank row on another

[rocksoliddigital]

Hey guys! Maybe you can assist me with a macro...
When a button is pushed, I am trying to copy an entire row from one sheet and paste it into another sheet's first blank row. I would like this to happen whenever the button is pressed.
I found this, but I haven't had any luck incorporating it in my worksheets. When I try to adjust it to fit my sheets it doesn't work. I'm kind of a macro newbie.

Sub CpyAct()
ActiveCell.EntireRow.Copy Destination:=Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Date
End Sub


A bit more info on what I'm trying to accomplish. I have a quote generating form. Those inputs all go to a single row. I want to be able to copy that row's information to a separate data list. So you enter one quote, copy the info over, enter another quote, copy the info over to the next row, and so on. So the end of the day it could have a dozen separate quotes all accounted for.

The copy from row is sheet is "Quote_Data" Row 1. Can be whole row but A-AP is where the info is.
Paste to row is sheet "Quote_List" and can start at A1 and continue down.

Thanks for your help!

 

[JoeMo]

Try this:

Sub AddQuote()
Dim vA As Variant, nR As Long
vA = Sheets("Quote_Data").Range("A1:AP1").Value
If Not IsEmpty(Sheets("Quote_List").Range("A1")) Then
    nR = Sheets("Quote_List").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Quote_List").Range("A" & nR).Resize(1, UBound(vA, 2)).Value = vA
Else
    Sheets("Quote_List").Range("A1").Resize(1, UBound(vA, 2)).Value = vA
End If
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

Would this one-liner suffice?

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> MoveQuote()<br>  Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 42).Value = Sheets("Quote_Data").Range("A1:AP1").Value<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[rocksoliddigital]

Beautiful! It does exactly what I needed.
Thanks so much guys! I was having the worst time trying to get it working.