VBA zaznaczenie liczb większych od 30.

Witam. Mam za zadanie z wyznaczonych liczb oznaczyć za pomocą jakiegoś symbolu (w kolumnie b) liczby większe od 30. Jednak co bym nie wpisywał to zawsze albo oznaczone zostają wszystkie lub tylko 1 liczba. Co powinienem poprawić ?

KOD:
Dim liczba As Double, wiersz As Inteager, kolumna As Inteager

For wiersz = 1 to 10
Range("a1").Offset(wiersz - 1, 0).Value = CInt(Rnd() * 100)
If Range("a1").Value > 30 Then
Range("b1:b10".Value = "@"
Next

End sub

Ten kod się nie kompiluje, więc jak może dzaiłać?
Zmieniasz range, zamiast pojedynczej komórki