repaet in excell /macro

[Bart en Els 09]

Every month I have tot give in the same info into excell.

for example: In B3(cellname: monday) you put K, in B4 (cellname : thuesday) you put K, in B5 (wednesday)  you put R, in B6 ( thursday) you put K and in B7 (friday) you put K.

I tried to make a macro but when I wonna repaet the K-K-R-K-K is doesn't work ,to start from B10(week after)-B15

Can I change the macro?

[#2]

Sub AddWeekStart()
  Dim R As Long
  Dim arrWk(1 To 5, 1 To 1) As String
 
  arrWk(1, 1) = "K"
  arrWk(2, 1) = "K"
  arrWk(3, 1) = "R"
  arrWk(4, 1) = "K"
  arrWk(5, 1) = "K"
  R = Cells(Rows.Count, 2).End(xlUp).Row + 3
 
  Cells(R, 2).Resize(5, 1).Value = arrWk
End Sub