ExcelBanter - View Single Post

stacia

file sent
--
Stacia

"Don Guillett" wrote:

OK. I see what you want. So I don't have to recreate
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"stacia" wrote in message
...
I guess I don't understand your reasoning. I want to copy A3:G7 after
every
subtotal on same worksheet.
--
Stacia

"Don Guillett" wrote:

selections aren't necessary. In fact, it would be easier to use
Datafilterautofilterfilter on the column for totalcopypaste to other
sheet. Record a macro while doing and then clean up to remove the
selections. Post back with your efforts for further assistance

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"stacia" wrote in message
...
I am trying to copy a range of cells and paste them after every Total
This is what I have so far:

Sub b8pastetitle()

Dim theRange As Range
Dim lastrow&, firstRow&, x&
Set theRange = ActiveSheet.UsedRange
lastrow = theRange.Cells(theRange.Cells.Count).Row
firstRow = theRange.Cells(1).Row
For x = lastrow To firstRow Step -1
If InStr(1, Cells(x, 1), "Total") 0 Then
Range("A5 : G7").Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Payroll").Cells(x + 2,
1).Selection.Paste

End If
Next
End Sub
--
Stacia

.

.