daily pastebin goal
59%
SHARE
TWEET

Untitled

a guest Apr 16th, 2018 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub GroupReport()
  2.  
  3. Dim vRegion As String
  4.  
  5. vRegion = Sheets("Region").Range("A3").Value
  6.  
  7. Sheets("Site").Cells.AutoFilter
  8.  
  9. Sheets("Site").Range("A1").AutoFilter Field:=1, Criteria1:=vRegion
  10.  
  11. Sheets("Site").Range("B2", Range("b2").End(xlDown)).Copy Destination:=Sheets("Region").Range("A8")
  12.  
  13. End Sub
RAW Paste Data
Top