Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub GroupReport()
- Dim vRegion As String
- vRegion = Sheets("Region").Range("A3").Value
- Sheets("Site").Cells.AutoFilter
- Sheets("Site").Range("A1").AutoFilter Field:=1, Criteria1:=vRegion
- Sheets("Site").Range("B2", Range("b2").End(xlDown)).Copy Destination:=Sheets("Region").Range("A8")
- End Sub
Add Comment
Please, Sign In to add comment