Makronun script karşılığı nasıl olmalı?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Duzelt_AB()
    Son = Cells(Rows.Count, "A").End(3).Row
    Range("D1:E" & Son).ClearContents
    Range("A1:B" & Son).Select
    Range("A1:B" & Son).Sort Range("A1"), 1
    
    Range("A1:A" & Son).Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B1:B" & Son).Select
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D1:E" & Son).Select
    Range("D1:E" & Son).Sort Range("D1"), 1
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Dosyada hazırladığım çalışmayı Google E-tablo da devam ettirmek istiyorum. Bunun için kullandığım makronun script karşılığı nasıl olmalıdır?
Saygılarımla

 

[Tevfik_Kursun]

Sayın Pitchoute,
İlginize çok teşekkür ederim.
Saygılarımla