VBA/Excel

Hej

Jeg sidder her med nogle opgaver i Matlab og VBA. Er stødt ind i nogle problemer vedr. VBA.

- Har et problem med, 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 med E6?



Et andet problem, er at jeg skal lave en If then else funktion igen, 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.

Hvis du på nogen måde kan hjælpe med dette, ville det være til stor hjælp.