VBA dwa zadania

Oto zadania:

Odliczanie od 20 do 0, po czym dostajemy komunikat "Odliczanie zakończone". W komórce C5 wpisany został tekst różnica kolejnych 20 licz naturalnych począwszy od 0 wynosi, w komórce D5 wyliczona wartość różnicy tych liczb.
Formatowanie komórki C5 w VBA - czionka 20, kolor niebieski, styl kursywa i pogrubiony, wypełnienie komórki na czerwony.

Część tego zadania mam w takiej formie:

For i = 20 To 0 Step -1
    If i = 0 Then
        MsgBox ("Odliczenie zakończone")
    End If
Next i

Drugie zadanie.

Procedura wprowadzająca od D2 do D31 kolejne liczby od 10 do 30. W komórce D1 doda tekst "kolejno wpisane liczby od 10 do 30.", sformatuje komórke C5 w vba na czcionke 15, kolor zielony, styl kursywa i pogrubiony, wypełnienie komórki ustawi na czarny

Sub test()

Dim i As Integer, n As Integer
 
	For i = 20 To 1 Step -1
         	If i = 20 Then n = 20
           		  n = n - (i - 1)
             		   If i = 0 Then MsgBox ("odliczanie zakończone")
   	  Next i
     
	Range("d5") = n

	End Sub

Sub test1()

Dim i As Integer
 
    For i = 10 To 30
        
        Cells(2, 4).Offset(i - 10, 0) = i
        
     	   Next i

End Sub