Runtime error 13, type mismatch

[FROGGER24]

Would like some help in troubleshooting this loop

Dim lr As Long, i As Long
lr = Cells(Rows.Count, 3).End(xlUp).Row

For i = 2 To lr
Cells(i, 32).Value = Cells(i, 4).Value & " " & Cells(i, 6).Value
Cells(i, 34).Value = (Cells(i, 25).Value - Cells(i, 26).Value - Cells(i, 27).Value) / Cells(i, 18).Value ' Runtime error 13, type Mismatch
Next i

Thanks

 

[Fluff]

Make sure you don't have any text, errors or formula that return "" in those cells.

 

[FROGGER24]

Fluff, thanks for your response, it was the formula that returned "" causing the error

 

[Fluff]

You're welcome & thanks for the feedback.