Boa noite!!

Como você não explicou oque quer levar a coluna"BU"...

Tente esse exemplo..e faça uma adaptação.

Sub ProcMult()
For i = 2 To 100
For x = 2 To 100
Cells(i, "B").Value = Application.WorksheetFunction.VLookup(Cells(i, "A").Value, Sheets("PASTA").[A11], [K1].Value, 0) * _
Application.WorksheetFunction.VLookup(Cells(x, "A").Value, Sheets("Plan4").[J2], [K1].Value, 0)
Next x
Next i
End Sub

Att..

Boa tarde
Quero levar a coluna "D" de pasta VENDAS DIARIAS com o nome sum
Obrigado
at. estou tentando aqui mas ainda não funcionou

Resumindo não funcionou

Resumindo não funcionou

Ivair, primeiramente, indicar somente, "Resumindo não funcionou " não ajuda muito, o ideal era ter expecificado o que não funcionou, "se a rotina não localizou ou deu alguma mensagem de erro, e qual erro".

Mas, como gosto de desafios, resolvi dar uma olhada, então vamos as considerações :
A mesma não funciona pelo simples fato de em seu aplicativo a Aba em questão se chamar :
"VENDAS DIARIAS" e em sua rotina você especificou "VENDAS DIARIA" sem o "S", isto faz uma grande diferença.
Agora, corrigindo o nome, você terá os seguintes problemas :
1 ) Como na Coluna "CC" você tem Fórmulas, quando o dado procurado não existir, será retornado #N/D, e consequentemente resultando em erro no resultado.

2 ) Na Coluna "A" da Aba "PASTA" mais precisamente em "A1970" o valor inserido NÃO é NUMERICO e sim TEXTO e isto causará erro na rotina e abrirá a Janela do Depurador.

Não fiz mais testes para ver se tinha mais problemas, mas comece acertando os que citei e depois retorne se tiver mais algum problema.

[]s

Bom dia
Muito obrigado vou dar uma olhada, e me desculpe pelo resumindo, posto depois os testes

até + pessoal
Ivair

Funcionou legal agora
já adaptei outras rotinas que já tenho nelas ficou massa
obrigado novamente segue abaixo como ficou

Sub GerarVendas()
Dim item As Long
Dim lin As Long
Dim LLoop As Integer
Dim Lrows As Integer
Dim Percentual As Single ' var controlar barra de processo
'Rotina importar arquivo vendas diarias
Importa_Vendas
Sheets("PASTA").Select
'Linha inicial
lin = 11
LLoop = 3
Lrows = 2300
Do While 1
lin = lin + 1
item = Sheets("PASTA").Cells(lin, 1).Value
If item = 0 Then
Exit Do
Else
Sheets("PASTA").Cells(lin, 72) = Application.VLookup(item, Sheets("VENDAS DIARIAS").Range("A12:d3000"), 4, 0)
End If
' Cacular barra de processo
Percentual = LLoop / Lrows 'divide a quantidade feita pelo limite e a fração %
AtuaBarraVenda Percentual
LLoop = LLoop + 1
Loop
Sheets("PASTA").Select
'Função limpar N/D vendas não encontradas ou seja não houve vendas desse produto
'Rotinas para limpar os N/D
LimparND
'Fecho o formulario processando
frmPro_ImportaVendas.Hide
End Sub