Como hacer para funcionar esta macro en excel

Bueno en internet he encontrado con un código que me serviría para mis trabajos pero no esta completo me gustaría que lo completara y hacerlo funcionar

num = input('Ingrese un numero de 4 cifras:')

m = x = pares = impares = suma = 0
#Verifica si el numero tiene 4 digitos
#Si el numero no tiene 4 digitos lo vuelve a pedir
While (Len(num) < 4) Or (Len(num) >= 5):
num = input('Ingrese un numero de 4 cifras:')
#suma de las cifras
for i in num:
suma += int(i)
#cifras igual al numero 4
if int(i) == 4:
x += 1
#Cantidad de cifras pares e impares
for i in num:
if int(i) % 2 == 0:
pares += 1
Else:
impares += 1
#Calcula los multiplos de 3
if int(i) % 3 == 0:
m += 1
#resultados
Print('\nSuma de sus cifras: %d' %suma)
Print('Cantidad de números pares: %d' %pares)
Print('Cantidad de números impares: %d' %impares)
Print('Cifras iguales al numero 4: %d' %x)
Print('Cifras múltiplo de 3: %d' %m)