let spørgssmål

Hej
Har lige lagt en stump af min kode ind
Jeg henter data fra en tekstfil og der er blandt andet for mange 0-er med ovre som jeg så sletter og erstater er . med 0

Men ved ikke lige hvorledes jeg skriver koden så den tager de linier der nu engang er. Jeg tager alle 65000 linier fordi jeg ikke lige lan få skrevet det om. Startede ellers godt nok i linie 2. Er der nogen der vil hjælpe



Dim RW As Long, I As Long
'RW = ActiveSheet.Range("A65536").End(xlUp).Row


'sletter de 16 nuller
Range("B2:B65000").Select
    Selection.Replace What:="0000000000000000", Replacement:="", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
       
'erstatter . med 0. for det er således data leveres fra tekst fil .0000000000000000
    Selection.Replace What:=".", Replacement:="0", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False


LN