Você precisa fazer isso separadamente, assim -
Set rngItem = WSTest.Range("A:A").Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
Set rngItem = rngItem.Offset(1,1)
Primeiro, encontre o que você está procurando e, em seguida, compense seu alcance. Eu não entendo muito bem o seu objetivo, então não posso usar o seu exemplo.