I have some data in which A Column has names and B column has amount. I have put filter to A column names. I have a some 5000 records and i need to add "1" (one) in B column only filtered cells not all. For Ex. if the B column one cell value is 10, it will be 11 after added 1. For this i need a vba code. Please help. Thanks.