Try this...

Dim intRowA
intRowA = 1
Do while Range("A" & intRowA) < strName
intRowA = intRowA + 1
Loop

Range("B" & intRowA) = value
Range("C & intRowA) = value


f this post helps click Yes
--------------
Jacob Skaria