VBA to replace "q" at the end character in column F with "nothing"

I want to replace "q" which is the end character for few lines in column F with "nothing".
To do this I have written below code which first filters column F for lines with "q" as end character.
Next macro should automatically drop down and select all the lines in that column and replace "q"
It is not working. My code filters for "q" but then does not select all the rows with such condition and replace. Also data is dynamic. So I am not sure which one will be the first row with "q" filter on. Hence i have given a form for selecting that cell.

Could you tell me where i am wrong?

Please Login or Register  to view this content.

Originally Posted by erzengel

Thanks for the quick response.
Actually there are many rows in which "q" is present.
However i want to replace only those rows in which "q" is at the end,

Sorry I was mistaken to get what you mean in your OP.

Please Login or Register  to view this content.

The code loop to each cell with value in column F
and check if the last char of the current looped cell is "q",
if the last char is "q" then it replace the "q" with blank
if the last char is not "q" then it skip the replacement process.

But if you mean like this
q45derfqqqatq ---> q45derfqqqat

then don't use the code above, but this one :

Please Login or Register  to view this content.

The code above remove the last char if the last char is q.