Bem, no código não achei isto, verifica no seu sistema, a Grid 1 usa a iLINHA(0), a Grid2 usa a iLINHA(1), e o incremento é iLINHA(2), mas se for o caso, declare 3 variaveis Integer, com nomes diferentes, por exemplo

Dim iLINHA0 As Integer

Dim iLINHA1 As Integer

dim iLINHA2 As Integer

 

vlu//