Hjælp til VBA/Excel

Jeg sidder her med nogle opgaver, og er løbet ind i nogle problemer.

problemerne er at;

Jeg skal lave en Rnd funktion, hvor den skal generere tilfældigt imellem to bogstaver (m og k i denne opgave).
jeg har fundet frem til følgende:

Sub Random()

Dim randomrange As Range, cell As Range
Set randomrange = Range("A2:A21")
For Each cell In randomrange
cell.Formula = "=CHAR(Randbetween(75,77))"
Next
randomrange.Value = randomrange.Value

Problemer er at Randbetween(75,77) tager tilfældige bogstaver IMELLEM k og m. dvs. at  den også kan genere et L.



- Et andet problem er, at jeg skal have denne funktion, til at gå fra B2 til B6:


Dim score As Integer, grade As String
score = Range("B2").Value


If score < 5 Then
  grade = "Falsk"
ElseIf score > 100 Then
  grade = "Falsk"
Else
  grade = score
 
 
End If

Range("B2").Value = grade

Da den i Range kun står til ("B2") virker den selvfølgelig kun i B2, men hvordan får jeg den til at virke til og med B6?
Og hvis den også skal gå vandret ud, hvordan virker den så til og  med E6?



Et sidste problem, er at jeg skal lave en If then else funktion, hvor hvis der står et m, skal der stadigvæk være et m, hvis der står et k, skal der stadigvæk være et k, og hvis der står alt muligt andet, skal der står "falsk". Har gjort det på følgende måde:


Dim Køn As String, værdi As String
Køn = Range("A2").Value

If Køn = m Then
  værdi = "m"
ElseIf Køn = k Then
  værdi = "k"
Else
værdi = "falsk"

End If

Range("A2").Value = værdi

Altså hvis køn = alt andet end m og k, så skal værdien være falsk. Ellers skal værdien være lig med køn.
Tror det har noget med at der står Value efter Range, har prøvet med Text, men det virker heller ikke.

Det ville være til stor hjælp, hvis der var nogen der kunne hjælpe eller henvise mig til et sted hvor jeg kan finde svar.