write a simple Word macro

Will pay $30. Need a simple macro written. Should take less than five minutes. Need macro to copy name of font from prior cell, move one font down, paste name of new font on following line. I'm trying to get a list of all fonts in Word where it shows them in this document. You can see I've done 1 through 75 manually....