Select certain range after Selection

[happydonut]

A very simple question I guess, but since I can't figure out the code (noob), I'm asking for help.

If my selection is in for instance in A1 and I want the code to select and highlight that cell + 4 cells under it, i.e. the range A1:A5.
Whats a simple code for this?

Appreciated

 

[Joe4]

Something like this?

Sub MyCode()
    ActiveCell.Resize(5, 1).Select
End Sub

 

[happydonut]

Something like this?

Sub MyCode()
    ActiveCell.Resize(5, 1).Select
End Sub

Yes, thank you very much

 

[Joe4]

You are welcome.