Having Macro Read Values Not Formulas

[somebody113]

Having Macro Read Values Not Formulas

I'm having a problem with the code below since it's trying to pull data from FORMULAS, and not VALUES. Is there a way I can force this macro to read the values and not the formulas?

Sub AdvFilter()
'
' AdvFilter Macro
' Select first cell in column (Sheet3!H2)

Range("Sheet3!H2").Select

' Extending the selection down to the cell just above the first blank cell in this column  

Range(Selection, Selection.End(xlDown)).Select

' Execute Advanced Filter on selection and copy to Sheet3!I2 

Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ 
"Sheet3!I2"), Unique:=True

End Sub

 

[BrandonWLH]

you just want to copy and paste the value, .copy then .pastespecial xlPasterValues

Try this instead

sub Test()
   dim rng as range
   set rng = Worksheets("Sheet3").Range("H2")
   set rng = Range(rng, rng.End(xlDown))
   rng.copy
   Worksheets("Sheet3").Range("I2").PasteSpecial xlPasteValues
End Sub