Can you help me, please.
Thank you.

just change “Cut” to “Copy”
then, clearContents on the copied cells

mySheet.Range(“A2:H500″).Copy _
Destination:=Worksheets(“dataout”).Range(“A65536″).End(xlUp).Offset(1, 0).Range(“A1″)
Range(“A2:H500″).Select
Selection.ClearContents
Worksheets(“checkout”).Activate

\(^_^)/

code:
Sub RoundedRectangle2_Click()
Dim lPart As Long
Dim ws As Worksheet
Dim mySheet As Worksheet
Set mySheet = Worksheets(“checkout”)
mySheet.Range(“A2:H500″).Cut _
Destination:=Worksheets(“dataout”).Range(“A65536″).End(xlUp).Offset(1, 0).Range(“A1″)
Worksheets(“checkout”).Activate

End Sub

thanks in advance!

I have Sheet2 copied over exactly form Sheet1 so that I can print it and it look the same. This is our invoice. Our customers order things and if it is Back Ordered I want it to copy to Sheet 2 so I can make a Back Ordered Order for them.

Sub Copybo()

‘Copy cells of cols A,B from rows containing “BO” in
‘col D of the active worksheet (source sheet) to cols
‘A,B of Sheet2 (destination sheet)

‘Destination Sheet
Dim DestSheet As Worksheet
Set DestSheet = Worksheets(“Back Order”)

Dim sRow As Long ‘row index on source worksheet
Dim dRow As Long ‘row index on destination worksheet
Dim sCount As Long
sCount = 0
dRow = 1

For sRow = 1 To Range(“D65536″).End(xlUp).Row
‘use pattern matching to find “BO” anywhere in cell
If Cells(sRow, “I”) Like “*BO*” Then
sCount = sCount + 1
dRow = dRow + 1
‘copy cols A & B
DestSheet.Cells(dRow, “A”) = Cells(sRow, “A”)
DestSheet.Cells(dRow, “B”) = Cells(sRow, “B”)
End If
Next sRow

MsgBox sCount & ” BO rows copied”, vbInformation, “Transfer Done”

End Sub

I have excel workbook called that has a tab called “master” that is populated with data from seperate excel workbooks (up 50 different ones!). I only need to copy some of the data from source into the “master” sheet. Here’s what I’m trying to accomplish

First Data Set
copy all data from column A3 until the words “Grand Totals:” (this varies from 1 row all the way to 500 rows) from source to first empty cell under column “c” in “master”

Second Data Set
copy data from U1 in source to first empty cell under column “B” in “master”

Third Data Set
copy data from G1 in source to first empty cell under column “A” in “master”

Any ideas?

Here’s what I am trying to do – I would like to automate copying of data from one workbook to another based on some criteria. For example – I am making up the layout of my data for confidentiality reasons but this should give a pretty good idea of what I want -

I have a workbook called Apartments with a sheet called “Info”. The columns (not starting at the first row) are labeled as “region”, “Number of rooms”, “price”, “square footage”, “security deposit”.

Then I have another workbook called Detail_info with sheets called “south_1″, “south_2″, “south_3″, “north_1″, “north_2″, etc.

What I need to do is somehow automate filtering of workbook Apartments (sheet-Info) to copy Region (ex. South) and Number of Rooms (ex. 1) and then paste this information to workbook Detail_info – sheet South_1.
I need to do this for all the combinations of region/number of rooms.My list isn’t long so I can type out the combinations in the code if I have a detailed template to work with. Please someone help me!