Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. Sheets("Copy PAP into here").Select
  2. ActiveSheet.range("$A$1:$P$66").AutoFilter Field:=13, Criteria1:="#N/A"
  3.  
  4. Sheets("copy pap into here").range("A1:C50").SpecialCells(xlCellTypeVisible).Copy
  5. Destination:=sheets("HPE").range("C" & Rows.Count).End(xlUp).Offset(1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement