I am a total amatuer when it comes to VBA and I cannot seem to get this to work. I have 2 columns on Sheet1. I want to loop through column A and find all cells with a value of 1. The I want to copy the cell to the right into a list on Sheet2 without blank spaces.
Sheet 1 Sheet2
A B F
1 Apples Apples
1 Oranges Oranges
0 Peaches Bananas
1 Bananas Grapes
0 Pears
1 Grapes
Thank you,
Bill