Macros

Señores necesito buscar en la columna de una hoja deterinada las casillas con la palabra coincidencia, copiar dos valores que estan a su izquierda y luego pegarlos en las columnas A y B de la hoja Datos, teniendo las ultimas casillas basias de ca columna.
Ls macro que hice funciona correctaenta cunado encuentra una coincidencia, si encontrara dos coincidencias no hace lo solicitado para la segunda fila de datos.
Sub Master()
Range("G2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "No inventariado" Then
valor1 = ActiveCell.Offset(0, -2)
valor2 = ActiveCell.Offset(0, -1)
Sheets("Datos").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0) = valor1
Range("B2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0) = valor2
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
End Sub