Erro de tempo de execução "6" - Estouro

Prezados
Bom dia,

Não sei mais o que fazer, vocês poderiam mim orientar ou até mesmo corrigir.


Sub DistCargas()

Dim Tipo As String
Dim Pcol As Integer
Dim Plin As Integer
Dim Found As Boolean

Lin = 4
Col = 1

Do Until IsEmpty(Cells(Lin, Col).Value)
Tipo = Cells(Lin, Col + 1).Value
Count = 2
Pot = 0
Do Until IsEmpty(Cells(Lin, Col + Count).Value)
Ambiente = Cells(Lin, Col + Count).Value
Plin = 4
Found = False

Do Until Found
If Ambiente = Sheets(1).Cells(Plin, 1).Value Then
Found = True
Else
Plin = Plin + 1
End If
Loop

Select Case Tipo
Case Is = "Iluminação"
Pcol = 17
Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value * Sheets(1).Cells(Plin, Pcol + 1).Value
Case Is = "TUGs"
Pcol = 13
Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value
Case Is = "TUEs"
Pcol = 8
Pot = Pot + Sheets(1).Cells(Plin, Pcol).Value
End Select
Count = Count + 1
Loop
If Tipo = "Circuito de Distribuição" Then
Pcol = 28
Pot = Pot + Sheets(1).Cells(4, Pcol).Value
End If
Cells(Lin, Col + 6).Value = Pot
Lin = Lin + 1
Loop

End Sub

Boa tarde e bem-vindo ao fórum
É estranho ter-se registado no fórum em 2012 e ter a primeira mensagem em 2020. Estou certo ou não?
Leia e respeite as regras do fórum
Movi-lhe a dúvida para esta sala por se tratar de Excel e o fórum ser de Access e não eliminei a dúvida por ser a sua primeira dúvida no fórum
Aguardemos que algum colega o ajude