Excel VBA message box to have option for all the data or to choose a range of data

[Afpire93]

Hi all, currently the first column of my VBA is a list of data to include. For example, it starts off from the 2nd row at BAI_2000 follow by 3rd row BAI_2001 all the way till BAI_5000. I did this by just naming it and pulling it down (As shown below). I will like instead for a message box to show up and letting me choose the range. For example a message box letting me choose 2 choices. Choosing to include everything as shown below or to choose the first number e.g BAI_2050 to BAI_2200. Is there a way to do this? Thank you very much.

Sub Nameproduct()

Range("A2").Value = "BAI_2000"

   Range("A2").Select
    Selection.Autofill Destination:=Range("A2:A5002"), Type:=xlFillDefault
    Range("A2:A5002").Select
    Range("A5000").Select
    Selection.End(xlUp).Select
End Sub

 

[onlyadrafter]

Hello,

not 100% certain if this is exactly what you are after

Sub Nameproduct()
    MY_START = InputBox("Please enter first row", "START ROW")
    MY_END = InputBox("Please enter first row", "START ROW")
    Range("A2").Value = "BAI_2000"
    Range("A" & MY_START).Value = "BAI_" & MY_START + 1998
    Range("A" & MY_START).Select
    Selection.AutoFill Destination:=Range("A" & MY_START & ":A" & MY_END), Type:=xlFillDefault
End Sub

is this any use?