Finde sidste linje i aktiv ark og indsætte dette i min kode

Jeg har fundet en kodestump på nettet som konverterer komma om til punktum.

Problemet med denne kode er at den løber alle celler igennem i det markerede område. Det gør at den kan blive langsom hvis der er markeret en kolonne f.eks kolonne F.
Derfor vil det være super at få "Used range" ind i koden så den kun løber relevante celler igennem og ikke 50.000 linjer.

Er der nogen der kan hjælpe med at rette koden til så den kun kigger på det relevante område?



Sub Konverter_komma_til_punktum()
Dim oRow As Range
Dim cell As Range
Dim i As Long, j As Long
Dim MyString As String
Dim aux As String

Application.ScreenUpdating = False
For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1

For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1
            MyString = Cells(i, j).Value
            MyString = Replace(MyString, ",", ";+;", 1)
            MyString = Replace(MyString, ".", ",", 1)
            MyString = Replace(MyString, ";+;", ".", 1)
            Cells(i, j).Value = MyString
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub