Montei uma Macro para ela buscar o dado de acordo com a data correspondente, no entanto, ela não está puxando da respectiva linha, como faço neste caso para ela buscar exatamente na linha em que a macro foi executada. O problema está na linha que tem asterisco, a celula deveria variar conforme a linha. Valeu pessoal. Selection.Find(What:=Range("gp8"), Sub Macro8() ' ' Macro8 Macro ' ' Atalho do teclado: Ctrl+d ' Selection.End(xlToRight).Select ActiveCell.Offset(0, 1).Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveCell.Range("A1:BT1").Select Selection.ClearContents Selection.End(xlToLeft).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select Selection.End(xlToLeft).Select Selection.End(xlToLeft).Select Selection.Copy Selection.End(xlToLeft).Select Range(Selection, Selection.End(xlToLeft)).Select * Selection.Find(What:=ActiveCell.Range("gp8"), After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(0, -111).Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "100%" ActiveCell.Select Selection.End(xlToLeft).Select ActiveCell.Offset(0, -1).Range("A1").Select End Sub