Change Range So It Take Specific Name In Column And Last Used Cell In Other

I need in some way to make the range variable, because it can change. I need only the first range to be different.

Code:
x = .Range("a4:a27").CurrentRegion.Value
A4 have to be instead the cell where Denmark typed. Column A
And
A27 have to be the lasted used cell in column B

But after the row where it have found Denmark.
Please have a look.
Below code is from AB33, But this is not a cross post.
Different question

Code:
Sub copyp()
' Denmark
Application.ScreenUpdating = 0
Dim cell As Range, i&, dic
With Worksheets("Middle Result")
x = .Range("a4:a27").CurrentRegion.Value

[Code] .......