[ktasker]

Hey guys,
I have one worksheet called Consumption with a list of clients. I need to filter the data by building type and copy the data from this worksheet to a worksheet for each building type. The building types are in column E and the entries start at line 12. The different types possible are listed in column E above the entries. For this particular example I need the first one in E1. Here is the code I have in VBA

Sub PasteToCustSheet(OfficeBuildings)
Dim C As Range
Sheets("Consumption").Activate
For Each C In Range(Range("E12"), Range("A65536").End(xlUp))
If C.Value = Range("E1").Value Then
C.EntireRow.Copy
ActiveSheet.Paste ThisWorkbook.Sheets(C.Value).Range("a65536").End(xlUp).Offset(1, 0)
End If
Next
Application.CutCopyMode = False
End Sub

It keeps giving me a runtime error 9 and highlighting the first line but OfficeBuildings is the name of one of the sheets I need the information to go to. How do I fix this?

[Rollin_Again]

Normally when you include something in the parentheses after the sub name you are receiving an argument from another procedure or routine. Since I don't see you using this received argument anywhere else in your routine why did you set it up this way?

Regards,
Rollin

[ktasker]

I actually got my friend to help me write the code since I have no experience in VBA, but he is out of town for the next two weeks so he can't help me out with any problems I have. Feel free to suggest another way to do it.

[Rollin_Again]

Remove what is in the parentheses and try it again. If this does not solve your problem then please attach a sample workbook to your next post and I'll take a look at it and write all the code for you.

Regards,
Rollin

[ktasker]

I still get a runtime error 9 if I remove the stuff in the paranthesis

[Rollin_Again]

Can you post your sample workbook with the code attached? If you prefer to email it directly to me you can send to rollin_again at hotmail dot com.

Regards,
Rollin

[ktasker]

I rewrote the program and now it works fine. Thanks for being willing to help out though.