Tedd be egy ciklusba, például For-Next-be.

Mivel több átalakítani valód van, nem If-fel érdemes figyeltetni az értékeket, hanem a Case utasítással, ami több elágazást enged.

Sub Csere()
    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
        orsz = Cells(sor, 4)
        Select Case orsz
            Case "GB", "IE"
                Cells(sor, 4) = "UK"
            Case "MO"
                Cells(sor, 4) = "HU"
            '
            'Ide jön a többi...
            '
        End Select
    Next
End Sub

Az egyaránt UK-ra átírandó GB és IE egy sorba írható, vesszővel elválasztva.