Set Fnd = Range("6:6").Find("%", , , xlWhole, , , False, , False)
If Not Fnd Is Nothing Then
Intersect(Range("M7:M5000"), Fnd.EntireColumn).Cut
Range("Q7").PasteSpecial Paste:=xlPasteValues
End If
I wish to find "%", then cut and paste special values, but as usual, It tells me a...