Eu fiquei preso tentando descobrir o que fazer com isso, mas basicamente quero uma maneira de imprimir o valor na coluna B, com um valor específico que corresponda à coluna A. Então, por exemplo:

Column A    Column B
1           ABC
2           DEF
3           GHI
1           JKL

Eu quero, depois de usar find / findnext ou o que for, imprimir esta string:

ABC JKL

Eu tentei usar

Set cellFound = ActiveWorkbook.Worksheets("sheet1").Range("F1:F1000000").Find("1")
string = cellFound.Offset(0, 1).value

E eu tenho um loop para percorrer o tempo necessário para cuidar de todas as linhas. Mas, com o Find, ele sempre retorna a mesma primeira string ("ABC") e a string acaba sendo ABC ABC em vez de ABC JKL

Tentei usar o FindNext em vez de encontrar, mas o que obtive foi um erro 1004. Portanto, não tenho muita certeza de onde estou fazendo isso errado. Alguém tem alguma ideia?