View Single Post
  #2   Report Post  
JMB
 
Posts: n/a
Default

are you copying the entire row to the other sheet, or just a certain number
of columns from the rows you've selected. if you're copying the entire row,
you may be able to use this macro, which copies the selected rows to column A
of another worksheet, and below the usedrange of the worksheet.

Sub CopyRows()
Dim WkSht As Worksheet
Set WkSht = Sheets("Quote")

If IsEmpty(WkSht.UsedRange) Then
Selection.EntireRow.Copy WkSht.Cells(1, 1)
Else: Selection.EntireRow.Copy WkSht.Cells _
(WkSht.UsedRange.Rows.Count + 1, 1)
End If

End Sub

"AJM1949" wrote:

Currently I use a macro to highlight the selected row on a Price List and
then a 2nd macro (different macros for pricing levels) to paste selected info
from that row to another worksheet(Quote). I would like to be able to select
multiple items and add them all in on go. I am a bit of a novice and would
appreciate some help.
Thanks
--
AJM1949