Macro to display region for countries

Hi,

I need a macro to display region for countries. For example in sheet 1 I'm having country list and in sheet 2 I have countries list and to which region it belongs. Once I run the macro it should display the result in sheet 1.

Ex : Sheet 1

Country Region
India
Bermuda
Hong Kong
Jersey

Sheet 2 :
Country Region
India Asia Pacific
Bermuda North America
Hong Kong Asia Pacific
Jersey Europe
Dubai Mena
Vietnam Asia Pacific
Canada North America

Hi Mike,

no both are in different cells

yes I need in macro , I tried the below one but stuck with the region range, it displays result only for B2 could you please help ?

Sub Ctry_Reg()
Dim Country As Long
Dim Region As Long
Country = Sheet1.Range("A2:A5").Row
Region = Sheet1.Range("B:B").Column
Sheet1.Cells(Country, Region) = Application.WorksheetFunction.VLookup(Sheet1.Range("A2:A5"), Sheet2.Range("A2:B13"), 2, False)
Country = Country + 1
'MsgBox "Done"
End Sub

Thanks this is much easier :D