Kod içindeki makronun script karşılığı

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Seneye okula başlayacak torunum için hazırladığım harf tanıma çalışması.

Sub Getir()
    Dim x As Long, y As Long, Son As Long, wf As WorksheetFunction
    Set wf = WorksheetFunction
    If [A1] = "" Then GoTo atla
        [G7] = UCase([G7])
        If [G7] = [E5] Then
            [N5] = [A1] - 1
            Application.Wait (Now + TimeValue("0:00:1") / 2)
                Randomize
                    y = wf.RandBetween(1, 9)
                [P5] = Cells(y + 1, 2)
            Application.Wait (Now + TimeValue("0:00:1"))
            Call PlaySound_1
          Else
            [A1] = [A1] - 1: [P5] = "OLMADI DEĞİL Mİ ?": Application.Wait (Now + TimeValue("0:00:1"))
            Call PlaySound_2
        End If
atla:
    Son = Cells(Rows.Count, "A").End(3).Row
        [A1] = [A1] + 1
        [E5] = wf.VLookup([A1], Range("A21:B52"), 2, 0)
        [G5] = "SEN DE YAZ BAKALIM ..."
        [P5] = ""
        Range("G7").Select
End Sub

Acaba bu makroyu scripte çevirmek mümkün mü? Ya da önereceğiniz başka bir yöntem var mıdır?
Saygılarımla