Buscar en una partida precio unitario

Tengo 240 partidas y debo buscar los precios unitarios en cada una, la complicación esta en que cada hoja tiene este dato en celdas diferentes, por ello estaba haciendo una macro que me buscar y luego pegara el valor en otra celda. Pero cuando lo ejecuto para las otras hojas me copia el valor de la celda establecida por ejemplo
    Cells.Find(What:="total mano de Obra", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Range("K37:M37").Select (AQUI)
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Y no me sirve porque en las otras hojas el valor esta en una celda distinta.