Sub test()

Dim AntalO As Integer
Dim AntalM As Integer
Dim res As String 
Dim CountryRange As Range, InitialRange As Range, C As Range

AntalO = Worksheets("ark1").Cells(2, 4).Value    
AntalM = Worksheets("ark1").Cells(4, 4).Value   

Set CountryRange = Sheets("Hoved").Range(Cells(2, 6), Cells(AntalM, 6))    
Set InitialRange = Sheets("ordre").Range("A1:R50000")     

For Each C In CountryRange    
    res = Left(Application.VLookup(C, InitialRange, 19, False), 3)    

    If Not IsError(res) Then   
        C.Offset(0, -1).Value = res
    End If

Next C

End Sub