Sub SelectCase()

Dim numer As Integer
Dim i As Integer
Dim nazwaMiesiaca As String

i = 2

Do While Cells(i, 1).Value <> ""

numer = Cells(i, 1).Value

Select Case numer
Case 1
nazwaMiesiaca = "styczeń"
Case 2
nazwaMiesiaca = "luty"
Case 3
nazwaMiesiaca = "marzec"
Case 4
nazwaMiesiaca = "kwiecień"
Case 5
nazwaMiesiaca = "maj"
Case 6
nazwaMiesiaca = "czerwiec"
Case 7
nazwaMiesiaca = "lipiec"
Case 8
nazwaMiesiaca = "sierpień"
Case Else
nazwaMiesiaca = "nieznana ..."
End Select

    Cells(i, 2).Value = nazwaMiesiaca
    i = i + 1
Loop

End Sub