Al correr el código en VBA para Excel 2016 en inglés obtengo
Compile error: Argument not optional.
Esto se traduce como error de compilación, argumento no opcional y quiere decir que la llamada que se está haciendo es incorrecta pues omite un argumento obligatorio.
La sentencia Public Sub dibujarT(num As Integer, i As Integer, j As Integer)
indica tres argumentos, los cuales son números enteros.
La "solución" sería llamar la función usando tres argumentos de tipo número, sin embargo esto no tiene sentido porque en la función dibujarT se declaran con valores de 1, por otro lado, hay otros errores.
Por ejemplo, en la función pedirnum falta la sentencia que asigna el valor a devolver.
Me parece que la documentación oficial sobre cómo escribir una función sólo está disponible en inglés, así que te dejo una adapatación del ejemplo incluido en ella
Sub Main()
temp = Application.InputBox(Prompt:= _
"Favor de escribir la temperatura en grados F.", Type:=1)
MsgBox "La temperatura es " &; Celsius(temp) &; " grados C."
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
Espero que lo anterior te sirva para corregir tu código.