Ajuda com codigo VBA

[Reginaldo Mendes Sousa]

Ajuda com um loop

Ola pessoal eu estou com uma Planilha de controle de peças que eu montei aqui,

e estou precisando de uma ajuda com um codigo

Eu quero que planilha funcione da seguinte maneira

Eu tenho uma Planilha de dados que contem a quantidade de peça que eu devo produzir na nas quatro semanas do mes( cada semana em uma coluna)

Quando eu der entrada, eu quero que essa entre em uma outra coluna (1ª semana movimentação), pois essa coluna vai comparar com a de dados e se tiver > que a quantidade de peças, Passar para proxima coluna e assim por diante

eu fiz o codigo, a comparação é feita, mais ele inseri o valor nas quatro semanas. E eu preciso que a semana seguinte comece com zero

esse é o codigo que eu fiz...

Sub Entradas()

Dim Entrada As Integer

Dim EntAnterior As Integer

Dim Total As Integer

Dim Linha As Integer

Dim QuantTotal As Integer

Dim Col As Integer

Dim Cols As Integer

Col = 2

Cols = 8

For Col = 2 To 5

QuantTotal = Dados.Cells(DadosLInha, Col).Value

Entrada = Dados.Cells(DadosLInha, Cols).Value

Do While Entrada < QuantTotal

Entrada = TelaInicial.Range("ENT").Value

EntAnterior = Dados.Cells(DadosLInha, Cols).Value

Total = Entrada + EntAnterior

TelaInicial.Cells(5, Col).Value = Total

Dados.Cells(DadosLInha, Cols).Value = Total

Exit Do

Loop

Cols = Cols + 1

Next Col

End Sub