Guru do Excel e Power BI

'
' Atualizar Macro
'

'
   Dim linha As Variant
   
   Dim pesquisa As String

       pesquisa = Range("E8")

       If pesquisa = "" Then Exit Sub
       
       Sheets("Base de Dados").Select
       Rows("2:2").Select
       Selection.Copy

       Set linha = .Find(what:=pesquisa, LookIn:=xIValues)
       If Not linha Is Nothing Then
           celula = linha.Address
               
               Do
               plan.Select
               linha.Select
                               
       ActiveSheet.Paste
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Application.CutCopyMode = False
       
       Loop While Not linha Is Nothing And linha.Address <> celula
       
       End If
                           
   Sheets("Interface").Select
   MsgBox "Dados atualizados com sucesso."

   
End Sub

Sub AleVBA_2192()
Dim r As Range, rSource As Range
Dim lngLastRow As Long
lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
Set rSource = Range("A4:G" & lngLastRow)
rSource.AutoFilter Field:=1, Criteria1:=Range("A2").Value
    For i = 5 To lngLastRow
      If Not Intersect(Range("A" & i), Range("A2:G" & lngLastRow).SpecialCells(xlCellTypeVisible)) Is Nothing Then
        Range("A" & i).Value = Range("A2").Value
        Range("B" & i).Value = Range("B2").Value
        Range("C" & i).Value = Range("C2").Value
        Range("D" & i).Value = Range("D2").Value
        Range("E" & i).Value = Range("E2").Value
        Range("F" & i).Value = Range("F2").Value
        Range("G" & i).Value = Range("G2").Value
      End If
    Next
rSource.AutoFilter
End Sub