This line of code seems to be causing problems:
rw = ActiveSheet.Shapes(Application.Caller).TopLeftCell .Row - 1

When I run the macro and get the "Run-time error 13: Type mismatch" error
then click on Debug, that line of code is highlighted in yellow.