Ændre vba kode

Hej

Er der nogen som kan lave en ny vba kode med udgangspunkt i denne her. Den skal kunne gøre det samme som den nuværende vba kode, men må ikke være en kopi:

Sub ()
   
    Dim inddatStationsnummer As Double
    Dim inddatPostnummer As String
    Dim inddatLandekode As String
    Dim inddatStationsleder As String
   
    Dim numKendteStationer As Double
    Dim kendteStationerTaeller As Double
    Dim fundetStation As Boolean
    Dim naesteStation As Double
    Dim svarFraBruger As VbMsgBoxResult
   
    Dim stationStationsnummer As Double
    Dim stationPostnummer As String
    Dim stationStationsleder As String
   
    inddatStationsnummer = Worksheets("Inddatering").Range("E5").Value
    inddatPostnummer = Worksheets("Inddatering").Range("E6").Value
    inddatLandekode = Worksheets("Inddatering").Range("E7").Value
    inddatStationsleder = Worksheets("Inddatering").Range("E8").Value
       
    If (Worksheets("Stationskartotek").Range("A2").Value <> "") Then
        numKendteStationer = Worksheets("Stationskartotek").Range("A1").End(xlDown).Row
    Else
   
    numKendteStationer = 1
   
    End If
   
    naesteStation = numKendteStationer + 1
   
    fundetStation = False
   
    For kendteStationerTaeller = 2 To numKendteStationer
        stationStationsnummer = Worksheets("Stationskartotek").Cells(kendteStationerTaeller, 1).Value
        If (stationStationsnummer = inddatStationsnummer) Then
            fundetStation = True
            stationPostnummer = Worksheets("Stationskartotek").Cells(kendteStationerTaeller, 2).Value
            stationStationsleder = Worksheets("Stationskartotek").Cells(kendteStationerTaeller, 4).Value
            Exit For
        End If
    Next
   
    If (fundetStation) Then
        If (stationPostnummer <> inddatPostnummer Or stationStationsleder <> inddatStationsleder) Then
            svarFraBruger = MsgBox("Oplysningerne stemmer ikke overens. Vil du opdatere?", vbYesNo + vbCritical)
            If (svarFraBruger = vbYes) Then
                Worksheets("Stationskartotek").Cells(kendteStationerTaeller, 2).Value = inddatPostnummer
                Worksheets("Stationskartotek").Cells(kendteStationerTaeller, 4).Value = inddatStationsleder
            Else
                Worksheets("Inddatering").Range("E6").Value = stationPostnummer
                Worksheets("Inddatering").Range("E8").Value = stationStationsleder
            End If
        End If
    Else
        Worksheets("Stationskartotek").Cells(naesteStation, 1).Value = inddatStationsnummer
        Worksheets("Stationskartotek").Cells(naesteStation, 2).Value = inddatPostnummer
        Worksheets("Stationskartotek").Cells(naesteStation, 3).Value = inddatLandekode
        Worksheets("Stationskartotek").Cells(naesteStation, 4).Value = inddatStationsleder
    End If
End Sub