Excel VBA - run-time error 13 – Type mismatch

[LukeP1]

Hi,

This line of code works most of the time, but occasionally I am getting a "run-time error 13 – Type mismatch" error

    Range("Ag" & (ActiveCell.Row)).Value = Cells(Cells((ActiveCell.Row), 33).End(xlUp).Row, 33) + 0

The code aims to find the last value (a number) in the column above the current cell and insert it into the active row.

does anyone have an idea why I am getting an error?

Many Thanks

 

[Fluff]

Couple of possibilities.
The cell in col AG that you are trying to get the value of is either text, or contains an error