peassis,

Boa Tarde!

Sua explicação (pelo menos para mim), está muito vaga. Não consegui entender o que você quer e como posso te ajudar. Compacte suas planilhas ou um exemplo e anexe aqui no fórum, explicando mais detalhadamente o que você quer. Assim será mais fácil e viável poder ajudar.

Wagner,

Segue em anexo um modelo da planilha, caso não consiga enteder algo favor infomar.

Agradeço pela atenção,

Pedro Assis

peassis,

É amigo... não dá para o meu conhecimento!

Vamos aguardar que outro integrante do fórum te ajude.

Sub fnc()
  Dim lngRow As Long
  Dim wksDados As Excel.Worksheet
  Dim wksTruck As Excel.Worksheet
  Dim lngLast As Long
  
  Application.Calculation = xlCalculationManual
  
  With ThisWorkbook
    Set wksDados = ThisWorkbook.Worksheets("Dados")
    Set wksTruck = ThisWorkbook.Worksheets("Truck")
  End With
  
  With wksDados
    lngLast = .Cells(.Rows.Count, "B").End(xlUp).Row
    For lngRow = 2 To lngLast
      wksTruck.Range("D8") = .Cells(lngRow, "B")
      wksTruck.Range("D9") = .Cells(lngRow, "C")
      wksTruck.Range("D10") = .Cells(lngRow, "D")
      wksTruck.Range("D11") = .Cells(lngRow, "E")
      Application.Calculate
      .Cells(lngRow, "F") = wksTruck.Range("D179")
    Next lngRow
  End With

  Application.Calculation = xlCalculationAutomatic
End Sub