Hvordan laves denne makro mere optimalt?

Jeg har følgende makro, der fungerer godt nok, men som bliver uoverskuelig hvis jeg skal lave flere forskellige rækker i træk.


Sub skriv()

rk = 9
    For kol = 2 To 13
   
    Select Case kol
       
    Case 2
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!B83"
    Case 3
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!C83"
    Case 4
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!D83"
    Case 5
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!E83"
    Case 6
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!F83"
    Case 7
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!G83"
    Case 8
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!H83"
    Case 9
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!I83"
    Case 10
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!J83"
    Case 11
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!K83"
    Case 12
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!L83"
    Case 13
    Cells(rk, kol).Formula = "=‘Y:\Dokumenter\Margin\[marginark.xls]Ark1'!M83"
   
    End Select
   
    Next kol

End Sub

Jeg vil gerne have den ændret så den ikke fylder så mange linier, men jeg kan ikke lige overskue hvordan jeg får kolonnereferencen i den indsatte formel til at ændre sig fra B og op til M.

Nogen der kan optimere ovenstående makro.