select three cells down from active cell

[gjsala]

I'm new to vba programming. I need some code in VBA for excel to locate specific item that the user inputs into a message box or has the option to select on the excel spreadsheet. After the the item is inputed or selected on excel, then I need to cells directly underneath, for example if G6 is selected from the message box then G6,G7,G8, and G9 need to be copied to a new spreadsheet.
Thank you!!!

 

[Rick39]

thread707-480902 should get you started

 

[gjsala]

Do you make that code so the active cell depends on the input of the user?

 

[gjsala]

Rick39,
I tried the following code and it still copied the to the right of the active cell?

Sub ActivateNextBlankDown()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub